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SECTION  1 


INTRODUCTION 


l.l^JURPOSE  AND  SCOPE 

This  manual  describes  the  computer  programs  for  the  FIREFINDER  Digital 
Topographic  Data  Verification-Library-Dubbing  System  (FFDTDVLDS),  and  will 
assist  in  the  maintenance  of  these  programs.  The  manual  contains  detailed 
flow  diagrams  and  associated  descriptions  for  each  computer  program  rou¬ 
tine  and  subroutine.  Complete  computer  program  listings  are  also  included. 
This  Information  should  be  used  when  changes  are  made  in  the  computer  pro¬ 
grams.  The  operating  system  has  been  designed  to  minimize  operator  In¬ 
tervention. 

1.2  SYSTEM  OVERVIEW 


The  FFDTDVLDS  Is  the  central  source  of  digitized  topographic  data 
for  the  fielded  FIREFINDER  Artillery  and  Mortar  Locating  Radar  Systems. 
This  facility  Is  responsible  for: 

•  Receiving  data  cells  from  the  Defense  Mapping  Agency  (DMA) 

•  Verifying  that  they  contain  reasonably  accurate  data  in  the  pre¬ 
scribed  format 


•  Accurately  cataloging  the  data  cells  in  the  library  so  as  to  facil¬ 
itate  timely  access  when  they  are  needed 


•  Converting  the  cataloged  data  cells  to  other  optimal  grid  sizes 
for  subsequent  cataloging 

•  Transferring  requested  data  cells  to  field  cassettes 

•  Validating  the  cassette  files  before  shipment  to  operational  units 


1.2.1  Verification 

The  Incoming  DMA  tapes  and  accompanying  documentation  will  be  com¬ 
pared.  The  cell  definition  records  containing  critical  data  will  be 
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dumped  for  crosscheck  with  the  printed  dump  accompanying  the  tapes.  Next 
the  actual  data  Is  displayed  on  a  color-coded  master  graphic  CRT  system. 
Radically  Inconsistent  color  mismatches  Indicate  probable  bad  data  Items. 
Rough  contouring  routines  are  also  utilized.  Any  doubt  as  to  the  accu¬ 
racy  and  validity  of  a  cell  will  render  It  unusable  by  FFDTDVLDS. 

1.2.2  Library 

The  library  operations  will  be  software-determined,  self-updating, 
and  crosschecking.  Operators  will  be  Instructed  as  to  what  tapes  to 
mount,  when  to  mount  them,  what  switches  to  throw,  and  so  forth.  Opera¬ 
tions  will  not  proceed  until  the  program  Is  satisfied  that  the  specific 
actions  have  been  correctly  performed.  Routines  will  be  available  to 
aid  operators  In  error  recovery  if  bad  library  data  Is  encountered. 

Auxiliary  routines  will  be  available  to  periodically  condense  the 
catalog  and  data  tapes,  crosscheck  the  catalog  against  the  data  tapes  to 
be  sure  no  errors  have  been  Introduced,  and  reorder  tapes  and  data  files 
to  make  more  efficient  use  of  the  existing  tapes.  These  routines  will 
be  used  Infrequently.  Auxiliary  software  will  also  Include  several 
utility  and  maintenance  programs  for  various  purposes. 

1.2.3  Dubbing 

This  portion  of  the  system  will  be  responsible  for  receiving  field 
user  requests  for  data,  locating  It  in  the  library,  and  transferring 
the  data  to  the  output  medium  and  format  (usually  a  cassette  or  9-track 
tape)  specified  by  the  requester.  Initially,  only  the  FIREFINDER  format 
will  be  available  on  9-track  tape  and  Raymond  6101  cassettes.  Software 
reprogramming  would  allow  other  formats,  and  f 1 rmware-drl ven  changes  In 
Raymond  Interface  could  accommodate  other  output  tape  or  disk  subsystems. 
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Field  user  requests  may  be  made  In  one  or  more  of  the  following  for¬ 
mats: 

a.  Grid  zone  plus  alphabetic  cell  designator,  plus  grid  size  op¬ 
tion. 

b.  Grid  zone  plus  SW  corner  UTM  coordinates,  plus  grid  size  option. 

c.  Grid  zone  plus  rectangular  area  SW,  NE  corner  points,  plus  grid 

size  option. 

d.  Grid  zone  plus  center  point  plus  grid  size  option. 

In  most  cases  the  grid  size  will  not  be  specifiable  by  FIREFINDER  field 

operators.  Established  policy  will  furnish  the  grid  size  selected  for 
FIREFINDER  systems.  All  transfers  within  the  VLD  will  be  error-checked 
as  a  standard  procedure.  Procedures  will  also  be  established  to  verify 
outgoing  tapes  using  the  verification  program  prior  to  shipment. 

1.3  Library  Process  Overview 

The  library  system  creates  a  tape  library  for  DMA  maps.  As  each  map 
is  received  from  DMA,  it  is  assigned  a  tape  number  based  on  its  grid  zone 
designator.  The  map  is  then  copied  onto  the  master,  master  backup,  and 
field  file  tapes  for  that  tape  number.  A  catalog  is  kept  so  that  all 
the  maps  can  be  readily  accessed. 

In  addition  to  the  specific  task  of  entering  maps  into  the  library, 
the  library  system  has  several  routines  which  allow  the  user  to  manipu¬ 
late  tapes,  create  headers,  and  address  the  catalog. 

The  user  can  get  the  location  for  a  specific  map  or  an  entire  read¬ 
out  from  the  catalog.  Copy  options  allow  entire  tapes  or  specific  files 
to  be  copied  verbatim.  Utility  routines  create  catalog,  working  files 
and  library  tape  headers. 


The  library  system  Is  designed  to  guide  the  user  In  processing  tapes. 
Displayed  Instructions  make  the  system  easy  to  use. 

When  a  DMA  original  Is  received  for  entry  Into  the  library,  a  CPYOBJ 
scratch  tape  Is  made  using  the  COPY  DMA  TAPE  function  of  the  library. 
This  CPYOBJ  scratch  tape  protects  the  DMA  original,  allowing  it  to  be 
returned  as  requested. 

The  verification  system  Is  then  used  to  check  the  maps.  Bad  maps 
are  returned  to  DMA  with  documented  errors.  Good  maps  are  entered  Into 
the  library. 

The  process  of  entering  a  map  into  the  library  consists  of  the  fol¬ 
lowing: 

1.  Copying  the  map  onto  master  library  (ML),  master  library  back¬ 
up  (MLBU),  and  field  file  (FF)  tapes. 

2.  Cataloging  the  location  of  the  map  on  each  of  these  tapes. 


3.  Updating  the  working  file  tape  to  reflect  the  maps  copied. 
Figure  1-1  shows  the  processing  of  a  DMA  tape. 


Figure  -1.  Processing  of  a  DMA  Tape 
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The  ML  and  MLBIJ  tapes  contain  the  maps  In  125m  format  (data  taken  at 
125m  intervals).  The  FF  tapes  contain  three  copies  of  each  map:  one  in 
250m,  one  in  500m,  and  one  in  1,000m  format.  These  formats  are  offered 
to  optimize  the  map  data.  For  example,  while  small  areas  such  as  hilly 
terrain  may  require  fine  definition  (250m),  large  areas  such  as  the  mid- 
Pacific  or  Kansas  can  be  adequately  covered  with  the  coarser  format 
(1,000m). 

All  ML  tapes  are  assigned  2000  numbers,  MLBU  tapes  3000  numbers,  and 
FF  tapes  4000  numbers.  For  example,  if  tape  number  5  is  assigned  to  a 
particular  grid  zone,  the  ML  tape  will  be  2005,  the  MLBU  tape  will  be 
3005,  and  the  FF  tape  will  be  4005. 

The  library  maintains  a  Pointer  Table  Reference  (PTR)  table  which 
cross-references  the  grid  zone  designator  to  the  tape  assigned.  The 
first  two  or  three  characters  of  the  map's  reference  designator  are  used 
to  calculate  the  PTR. 

The  system  can  accommodate  a  maximum  of  999  tapes,  assigned  in  numer¬ 
ical  order.  A  maximum  of  five  grid  zones  can  be  assigned  to  one  tape. 
The  number  and  grid  zones  assigned  are  up  to  the  operator.  Once  the  grid 
zones  have  been  assigned,  they  will  continue  to  be  on  the  same  tape. 
When  a  tape  Is  filled,  another  tape  is  assigned,  and  the  grid  zones  are 
automatically  carried  over  to  it. 

As  each  map  Is  copied  onto  the  appropriate  tapes,  its  location  is 
noted  and  cataloged.  After  cataloging,  the  working  file  tape  is  up¬ 
dated  to  record  whatever  processing  was  done.  The  working  file  contains 
the  PTR  table  and  the  number  of  files  on  each  tape. 


1-5 


I 


The  library  has  a  CATALOG  FIND  utility  which  retrieves  the  location 
of  any  map  required. 

When  the  library  entry  routine  (ENTER  VERIFIED  CELL  INTO  LIBRARY)  Is 
selected,  the  operator  Is  directed  to  enter  the  number  of  maps  to  be  pro¬ 
cessed.  At  present,  a  maximum  of  30  maps  can  be  processed  at  one  time. 
The  operator  Is  then  directed  to  enter  the  maps  using  their  UTM  grid 
designator  (15PKQ,  12STM).  As  each  map  is  entered,  it  is  checked  for 
validity.  An  Invalid  entry  prompts  the  operator  to  reenter  the  map. 
For  valid  entries,  the  PTR  table  Is  checked  to  see  if  a  tape  number  has 
already  been  assigned  to  the  grid  zone  designator  (15P,  12S)  for  that 
map.  If  a  tape  number  has  been  assigned,  the  ML,  MLBU,  and  FF  tape 
numbers  are  displayed.  If  a  tape  number  has  not  yet  been  assigned,  a 
tape  utility  is  called  to  assign  a  tape  number  and  to  create  the  tape 
headers  for  the  new  ML,  MLBU,  and  FF  tapes.  After  the  new  tapes  are 
created,  the  operator  is  prompted  to  continue  entering  the  maps. 

When  all  the  maps  to  be  processed  are  entered,  the  operator  is 
directed  to  mount  the  CPYOBJ  scratch  tape  containing  the  verified  cells 
onto  the  appropriate  tape  drive.  The  program  will  search  the  CPYOBJ 
tape,  and  record  the  location  of  each  map  to  be  processed.  The  search 
continues  until  all  maps  are  located  or  the  end-of-tape  mark  is  reached. 
Any  maps  not  found,  and  those  that  could  not  be  read,  are  identified. 
The  operator  is  asked  to  mount  the  ML  tape  assigned  to  the  first  map. 
All  the  maps  with  the  same  grid  zone  will  be  entered  on  this  tape.  The 
CPYOBJ  scratch  tape  is  positioned  to  the  appropriate  file  for  each  map 
and  the  maps  with  the  same  grid  zone  will  be  entered  on  the  ML  tape. 
The  location  of  each  map  on  the  ML  tape  is  recorded.  When  this  operation 
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is  finished,  the  operator  Is  directed  to  dismount  the  ML  tape  and  mount 
the  MLBU  tape  for  this  grid  zone.  The  same  maps  are  then  copied  onto 
the  MLBU  tape,  and  their  location  recorded.  Finally,  the  operator  is 
asked  to  dismount  the  MLBU  tape  and  mount  the  FF  tape  for  this  grid 
zone.  This  time,  each  map  is  copied  three  times  (in  250m,  500m,  and 
1,000m  format),  and  only  the  location  of  the  250m  format  is  recorded. 
The  operator  Is  then  directed  to  dismount  the  FF  tape. 

At  this  point,  the  program  indicates  the  grid  zone  it  has  just  pro¬ 
cessed,  and  gives  the  operator  a  choice  of  continuing  or  not.  If  the 
operator  chooses  to  continue,  the  next  grid  zone  in  the  order  entered  is 
processed.  If  the  operator  chooses  not  to  continue,  any  remaining  maps 
of  a  different  grid  zone  are  not  processed.  The  results  are  then  dis¬ 
played.  The  location  of  each  map  on  the  ML,  MLBU,  and  FF  tapes  is  given, 
along  with  the  date  It  was  entered.  Maps  which  were  not  entered  because 
of  bad  copies  or  tape  limitations  are  listed,  along  with  the  reason  for 
nonentry.  Any  maps  not  processed  by  operator  directive  are  also  dis¬ 
played. 

The  operator  Is  then  directed  to  mount  the  master  catalog  tape.  The 
catalog  is  updated  and  a  catalog  backup  tape  is  also  written. 

Finally,  an  end-of-day  processing  routine  is  performed,  showing  the 
updated  files  and  making  a  new  working  tape  to  store  the  new  Information. 

After  the  working  tape  and  its  backup  are  made,  the  library  entry 
function  is  finished  and  the  DMA  option  menu  is  again  displayed. 
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SECTION  2 


LIBRARY  TAPE  DESCRIPTIONS 

2.1  GENERAL 

The  library  system  uses  three  types  of  tapes: 

•  The  working  tape 

•  The  library  tape 

•  The  catalog  tape 

The  working  tape  contains  the  information  on  the  working  files.  This 
tape  is  loaded  prior  to  any  processing.  The  initial  working  tape  is  cre¬ 
ated  by  the  utility  REBUILD  WORKING  FILE.  After  this  tape  is  created, 
the  system  is  reloaded  using  this  tape.  From  then  on,  a  new  working  tape 
is  made  every  time  a  new  map  is  added  to  the  library.  The  working  tapes 
are  created  on  the  son,  father,  grandfather  principle.  They  are  assigned 
working  tape  numbers  of  5,  6,  and  7.  A  backup  of  each  working  tape  is 
also  created. 

The  library  tapes  are  created  by  the  system.  As  described  in  Sec¬ 
tion  1.3,  three  library  tapes  are  created  at  a  time:  master  library 
(ML),  master  library  backup,  (MLBU) ,  and  field  file  (FF)  tapes.  These 
tapes  are  assigned  numbers  by  the  system:  the  grid  zones  assigned  to 
each  tape  are  operator-controlled.  As  new  grid  zones  are  added,  new 
library  tapes  are  created.  The  system  can  control  up  to  999  tapes. 

The  catalog  tape  contains  information  on  each  library  entry:  the  map 
grid  zone  designator,  its  location  (tape  and  file  number),  and  the  date 
it  was  entered.  The  catalog  tape  and  its  backup  should  be  made  before 
beginning  the  library.  The  catalog  headers  are  made  using  the  utility 
REBUILD  CATALOG.  Entries  are  made  continuously  until  40  replacement  maps 
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are  entered.  At  that  point,  the  system  creates  a  new  catalog,  deleting 
all  the  replaced  maps. 

A  detailed  explanation  of  each  tape  Is  given  In  the  following  para¬ 
graphs. 

2.2  WORKING  TAPE 

The  working  tape  stores  all  the  working  files.  The  records  contained 
In  these  files  hold  PTR  tape  assignments,  the  number  of  files  on  each 
library  tape,  and  the  number  of  cells  replaced  due  to  updated  informa¬ 
tion  or  bad  copies. 

The  working  tape  Is  loaded  into  memory  at  the  beginning  of  the  pro¬ 
gram.  After  a  day  of  processing,  a  new  working  tape  Is  created  so  that 
all  the  updated  files  are  recorded. 

The  working  tape  has  four  files: 

•  Header  File 

•  Tape  Pointer  File 

•  Tape  Usage  File 

•  Replacement  List  File 
Physically,  the  tape  Is  set  up  as  follows: 


Header  File: 

Fixed  Length  Record  (FLR) 

FIXREC 

Designator  Record 

EOT 

DESREC 

Tape  Pointer  File: 

FLR 

FXRECP 

Designator  Record 

DSRECP 

Tape  Pointer  Record 

EOT 

PTRREC 

Tape  Usage  File: 

FLR 

FXRECU 

Designator  Record 

DSRECU 

ML  Usage  Record 

USGREC 

MLBU  Usage  Record 

USGRC2 

FF  Usage  Record 

EOT 

USGRC3 
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Replacement  List  File: 


FLR  FXRECR 

Global  Replacement  Record  GLBRPL 

Local  Replacement  Record  LCLRPL 

EOT 

EOT  End-of-Tape 

A  breakdown  of  each  file  Is  shown  In  Figures  2-1  through  2-4. 

The  header  file  consists  of  only  an  FLR  and  a  tape  designator  rec¬ 
ord.  The  tape  designator  record  has  the  tape  number  and  the  creation  date. 

The  tape  pointer  file  consists  of  an  FLR,  a  file  designator  record, 
and  the  tape  pointer  record  (PTRREC).  Words  3  to  1203  of  the  tape  point¬ 
er  record  comprise  the  PTRTBL.  In  the  program,  an  equivalence  is  estab¬ 
lished  between  PTRREC(3)  and  PTRTBL(l) . 

The  PTRTBL  cross-references  the  PTR  number  of  a  given  grid  zone  to 
the  tape  number  assigned  to  that  grid  zone. 

The  PTR  Is  calculated  from  the  first  two  or  three  characters  of  a 
UTM  grid  zone  designator  (2K,  32U,  15P,  7V,  etc.)  according  to  the  for¬ 
mula: 

PTR  =  (20  (PRFX  -  1)}  +  Value 
where: 

PRFX  3  one-  or  two-digit  numeric  prefix 

Value  =  the  numeric  equivalent  of  the  alphabetic  character 

C  3  1,  D  3  2,  E  3  3,  F  =  4,  G  3  5,  H  3  6,  J  3  7,  K  =  8,  L  3  9, 
M  3  10,  N  3  11,  P  3  12,  Q  =  13,  R  3  14,  $  3  15,  T  3  16,  U  3  17, 
V  3  18,  W  3  19,  X  3  20 

Based  on  the  UTM  grid  assignments,  a  PTR  can  have  a  value  of  1  through 
1200.  Accordingly,  each  position  In  the  1200-word  PTRTBL  corresponds 
to  the  PTR  of  a  given  grid  zone.  For  example,  PTR  3  1  would  correspond 
to  the  first  position  In  the  PTRTBL  or  PTRTBL (1). 
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WORKING  TAPE  -  (TO  BE  LOADED  INTO  CORE  MEMORY  AT  STARTUP] 


wnsxsato 


WDSX33H3 


I  wnSX33H3 


Z  z 

o  5 

,*  N  N 

<  a  3  S 

3  S5|g 

I-:l£ 

I  IS! 


33H  saa 
H10N31 


aiavx  uid 

HXON31 


aaanNO 


iNnao 

auosau 


1N003 

auosau 


aasown 


IdAl 

auooaw 


34AA 

awooaw 


MAX 

anosaii 


Figure  2-2.  Working  Tape  -  Tape  Pointer  File 


WORKING  TAPE 

TAPE  USAGE  FILE  -  TUSGFL 


Figure  2-3.  Working  Tape  -  Tape  Usage  File 


Figure  2-4.  Usage  Tape  -  Replacement  List  File 


As  tape  numbers  are  assigned,  they  are  placed  in  the  PTRTBL  position 
for  the  grid  zone.  As  an  example,  say  grid  zone  32U  has  been  assigned 
tape  number  5.  The  PTR  for  32U  is:  PTR  =  (20)  (31)  +  17  =  637.  In  the 
637th  position  of  the  PRTTBL,  the  number  5  will  be  entered: 

PTRTBL(637)  =  5 

From  then  on,  every  time  a  32U  cell  is  entered,  tape  number  5  will  be 
retrieved  by  the  program. 

The  tape  usage  file  consists  of  an  FLR,  a  file  designator  record  and 
three  tape  usage  records,  on*  for  each  library  tape:  USGREC  (ML), 
USGRC2  (FilBU),  and  USGRC3  (FF).  Words  3  to  1003  of  the  usage  records 
comprise  the  usage  tables:  USGTBL  (ML),  USGBU  (MLBU),  USGFF  (FF).  In  the 
program,  an  equivalence  Is  established  between  USGREC( 3 )  and  USGTBL(l); 
USGRC2 ( 3 )  and  USGBU(l);  and  USGRC3(3)  and  USGFF(l). 

The  usage  tables  record  the  number  of  files  on  each  tape.  (The 
header  files  are  considered  as  one  file.) 

At  any  given  time,  the  program  may  assign  up  to  999  tapes.  Each 
tape  corresponds  to  a  position  in  the  usage  table.  (Tape  number  1 
corresponds  to  USGTBL(l),  USG8U{1),  and  USGFF(l). 

Before  a  new  cell  Is  added  to  an  ML  tape,  the  usage  table  is  checked 
to  make  sure  the  tape  has  room  to  accept  the  new  cell,  and  to  get  the 
number  of  files  that  have  to  be  spaced  over  before  entering  the  new  cell 
on  any  tape. 

Only  the  USGTBL  is  checked  to  verify  that  there  is  enough  room  for 
the  new  cell.  After  41  cells  have  been  entered  on  the  ML  tape,  a  new 
tape  will  be  created.  Since  there  is  a  five-file  variance  between  the 
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ML  and  the  MIBU,  there  should  be  enough  room  on  the  backup  tape  to  accept 
any  cells  entered  on  the  master.  The  FF  tape  has  only  condensed  cells 
on  It,  so  there  Is  never  any  danger  of  running  out  of  room. 

When  a  cell  has  been  copied  onto  a  tape,  Its  corresponding  usage 

table  is  incremented.  The  ML  and  MLBU  usage  tables  are  Incremented 
once  for  each  copy.  The  FF  usage  table  Is  Incremented  once  for  each  of 
the  three  files  copied  onto  the  FF  tape.  Therefore,  for  each  cell  the  FF 
usage  table  Is  Incremented  by  three.  In  the  catalog  record,  the  exact 
file  Is  recorded  for  the  ML  and  the  MLBU  tapes.  For  the  FF  tape,  only 
the  250m  format  file  Is  cataloged. 

When  a  cell  Is  to  be  added  to  a  library  tape,  the  number  of  files 

already  on  the  tape  must  be  known  so  that  the  files  can  be  spaced  over. 

Since  the  first  file  on  each  tape  Is  read  for  the  header  information, 
the  program  actually  skips  over  the  number  of  files  in  the  usage  table, 
minus  one. 

While  a  given  grid  zone  is  processed,  the  usage  table  is  checked 
before  each  cell  Is  entered.  If  a  tape  Is  filled  and  there  are  still 

cells  to  be  entered,  these  remaining  cells  are  flagged  and  no  further 
processing  Is  done  on  them.  During  end-of-day  processing,  these  cells 
will  be  shown  as  not  having  been  processed  due  to  tape  limitations. 

The  replacement  list  file  consists  of  an  FLR,  a  global  replacement 
record,  and  a  local  replacement  record.  The  global  replacement  record 
keeps  track  of  all  the  cells  replaced  by  new  data;  the  local  replacement 
record  Is  not  used  at  this  time. 
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Words  3  to  83  of  the  global  replacement  record  comprise  the  global 

replacement  table  (GLBTBL).  In  the  program,  an  equivalence  is  estab¬ 

lished  between  GLBRPL (3 )  and  GLBTBL(l).  Space  has  been  allocated  for 
40  entries.  When  cells  are  to  be  added  to  the  catalog,  the  new  cells 
are  compared  to  the  cells  already  cataloged.  When  a  match  occurs, 
meaning  that  the  new  cell  is  replacing  a  cell  already  in  the  catalog, 
the  tape  and  file  number  of  the  replaced  cell  are  entered  into  the  GLBTBL. 
When  the  catalog  is  searched  for  a  cell  position,  it  will  check  the 
GLBTBL  and  ignore  any  cells  listed  there.  Therefore,  only  the  latest 
cell  will  be  retrieved. 

Words  3  to  83  of  the  local  replacement  record  comprise  the  local 

replacement  table  (LCLTBL).  In  the  program  an  equivalence  is  estab¬ 

lished  betwen  LCLRPL(3)  and  LCLTBL(l) . 

2.3  LIBRARY  TAPES 

The  cells  are  stored  on  library  tapes.  The  tape  and  file  number  for 
each  cell  are  recorded  so  that  the  cell  can  be  retrieved  as  required. 
See  Section  1.3  for  an  explanation  of  library  tapes. 

Cells  received  from  the  DMA  at  this  time  are  100  by  100  kilometer 
cells.  They  contain  801  data  records  with  1  scan  per  record.  In  the 
125m  format,  every  data  record  is  read,  but  the  records  are  condensed 
to  five  scans  per  record.  For  the  250m  format,  every  other  DMA  data 
record  is  read,  and  these  are  packed  10  scans  per  record.  In  the  500m 
format,  every  fourth  data  record  Is  read,  and  these  are  packed  20  scans 
per  record.  Finally,  the  1000m  format  reads  every  eighth  record  and  packs 
them  25  scans  per  record.  Because  of  this  packing,  the  FF  tapes  require 
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much  less  space  than  the  ML  and  MLBU  tapes.  Also,  because  the  amount 
of  data  recorded  is  less,  the  Information  contained  on  them  is  cruder. 

The  number  of  files  on  any  given  library  tape  is  recorded  in  the 
usage  tables.  (Refer  to  Section  2.2,  Working  Tape.)  The  position  in 
which  a  cell  Is  entered  on  a  tape  is  recorded  and  later  entered  into 
the  catalog  with  the  cell  designator. 

The  library  tapes  are  physically  set  up  as  follows: 

Header  File  Fixed  Length  Record  (FLR) 

Designator  Record 
EOT 

Cell  File  FLR 

Definition  Record 
Data  Record 
• 

Data  Record 
EOT 

• 

Cell  File  FLR 

Definition  Record 
Data  Record 
• 

Data  Record 
EOT 

EOT  End-of-Tape 

EOT  End-of-Tape 

The  breakdown  of  these  files  is  shown  In  Figures  2-5  and  2-6.  There  is 
one  cell  file  for  each  UTM  cell.  The  number  of  data  records  varies  with 
format:  125m  has  161  records,  250m  has  41  records,  500m  has  11  records, 
and  1000m  has  4  records. 

The  header  file  consists  of  an  FLR  and  a  tape  designator  record. 
The  designator  record  contains  the  tape  type  (ML,  MLBU,  or  FF),  the 
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MASTER  LIBRARY  TAPE  (BB,  FF*|  TAPE 
HEADER  FILE 


Figure  2-5.  Master  Library  Tape 


tape  number,  and  the  date  the  library  tape  was  created.  It  also  gives 
the  number  of  grid  zones  assigned  to  that  tape,  and  what  they  are. 
(NOTE:  A  maximum  of  five  different  grid  zones  per  tape  is  allowed.) 


The  cell  files  consist  of  an  FLR,  a  definition  record,  and  the  re¬ 
quired  number  of  data  records.  Referring  to  Figure  2-6,  you  can  see  that 
the  definition  record  contains  information  about  the  cell,  such  as  the 
designator,  the  maximum  elevation,  the  area  it  covers,  etc.  A  breakdown 
of  the  entire  definition  record  is  as  follows: 


Word 


1 

Record  Type 

125125  (Octal) 

2 

Record  Count 

1 

3 

Number  of  Cell s/File 

1 

4-6 

UTM  Grid  Zone  Designator 

7-8 

S/W  Corner  Northing 

9-10 

S/W  Corner  Easting 

11-12 

UTM  Scale  Factor 

13 

Lowest  Elevation  (Base  Height  in  Meters) 

14 

Height  Scale  Factor 

15 

Spacing  Multiple 

8 

(125m) 

4 

(250m) 

2 

(500m) 

1 

(1000m) 

16 

Number  of  km  in  N/S  Direction 

100* 

17 

Number  of  km  in  E/W  Direction 

100* 

18 

Number  of  1st  Data  Record 

19 

Grid  North  Azimuth 

20 

Maximum  Elevation  (in  Meters) 

21 

Number  of  Words/Data  Record 

22 

Number  of  Scan  Profiles/Cell 

23 

Length  of  Last  Data  Record 

24 

Spheroid  Reference  Number 

25-27 

Not  Used 

28 

End  of  Record 

29 

Sum  Check 

*  Subject  to  change. 

The  spacing  multiple,  number  of  words/record,  number  of  scan  pro¬ 
files/cell,  and  length  of  the  last  data  record  (words  15  and  21-23) 
vary  according  to  the  format.  At  this  time,  all  cells  contain  100  km; 
this  may  vary  in  the  future. 
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The  data  records  contain  the  scan  profiles  which  make  up  the  maps. 
The  data  records  are  broken  out  as  follows: 


Word 

1  Record  Type  102000  (Octal) 

2  Record  Count 

3  Number  of  Scans  in  Data  Record  5  -  125m 

10  -  250m 
20  -  500m 
25  -  1000m 

4  -  496  First  Scan  (402  words) 

Second  Scan  (402  words) 

Third  Scan  (402  words) 

Final  Scan  (402  words) 

End  of  Record  -1 

Sum  Check 


A  tape  mark  (EOF)  is  placed  after  the  last  data  record.  After  the 
last  cell  has  been  placed  on  the  tape,  two  EOF  marks  are  placed  for 
end- of- tape. 


2.4  CATALOG  TAPES 

There  are  two  catalog  tapes,  the  Master  Catalog  and  the  Backup  Cat¬ 
alog.  They  are  identical  except  for  the  header  information.  The  cat¬ 
alog  records  the  UTM  grid  zone  designator  and  the  tapes  and  files  where 
the  ML,  MLBU,  and  FF  cells  are  stored.  The  date  when  the  cell  was  en¬ 
tered  into  the  library  is  also  recorded. 


The  catalog  tape  is  set  up  as  follows: 


Header  File:  Fixed  Length  Record  (FLR) 

Designator  Record 
EOT 

Catalog  File:  Catalog  Record 
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EOT 

EOT 


Catalog  Record 
EOT 

End-of-Tape 

End-of-Tape 


Figure  2-7  shows  the  layout  for  these  ffles. 

The  header  file  contains  an  FLR  and  the  tape  designator  record.  The 
designator  record  contains  the  date  when  the  catalog  was  created  and  iden¬ 
tifies  it  as  either  a  master  or  backup  catalog. 

The  catalog  file  consists  of  catalog  records.  There  is  one  catalog 
record  for  each  cell  entered  into  the  library.  New  cells  are  added  after 
the  last  catalog  entry. 

The  catalog  record  contains  the  UTM  grid  designator,  the  northing  and 
easting  for  the  cell,  and  the  tape  number  and  file  number  where  the  cell 
is  stored. 

The  catalog  record  is  as  follows: 


Word 

1  Record  Type  101100  (Octal) 

2  Record  Count 

3-5  UTM  Grid  Designator 

6-7  S/W  Corner  Northing 

8-9  S/W  Corner  Easting 

10  Number  of  km  in  N/S  direction 

11  Number  of  km  in  E/W  direction 

12  ML  Tape  Number 

13  ML  File  Number 

14  BU  Tape  Number 

15  BU  File  Number 

16  FF  Tape  Number 

17  FF  File  Number 

18-19  Date  Cell  Was  Entered  Into  Catalog 

20  Numeric  Prefix  of  Grid  Designator 
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Figure  2-7.  Master  Catalog  Tape 


21 

22-24 

25 


First  Alpha  Character  of  Grid  Designator 
For  Program  Usage* 

Sum  Check 


*  Words  22  through  24  are  used  by  the  program  for  the  following: 
Word 


22  The  File  Location  of  the  Cell  Held  on  the  CPYOBJ  Scratch 

23  0  =  Cell  Was  Not  Completed 

1  »  Cell  Was  Copied  on  All  Tapes 

2  =  Tape  Limitation  Exceeded 

3  *  Cell  Was  Not  Found  on  CPYOBJ  Scratch 

4  =  Not  Processed  Due  to  Bad  Copy 

24  End  of  record 


Replaced  cells  are  maintained  on  the  catalog  until  a  maximum  of  40 
cells  are  replaced.  As  cells  are  replaced,  they  are  added  to  the  global 
replacement  table.  A  catalog  search  will  then  Ignore  any  cells  listed 
In  this  table  and  retrieve  only  the  latest  cell.  (Refer  to  Section  2.2, 
Working  Tape.) 


When  the  maximum  number  of  replacements  is  reached,  a  new  catalog 
Is  created,  deleting  all  replaced  cells  and  zeroing  out  the  replacement 
table. 
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SECTION  3 


COMMONS  AREA  DESCRIPTION 


3.1  GENERAL 

Many  variables  used  in  the  library  system  are  held  in  a  common  data 
base  (commons).  Each  area  in  commons  has  a  name  and  several  variables 
held  in  that  commons.  The  following  paragraphs  describe  each  variable 
held  in  the  data  base  and  the  function  it  performs.  Table  3-1  shows  the 
common  areas  accessed  by  each  subroutine. 

In  the  following  descriptions,  the  common  variable  names  are  given 
in  capital  letters;  the  subroutines  are  in  capital  letters  and  underlined. 


3.2  COMMONS 

/ALL/  IOBUFO  (2048),  I0BUF1  (2048),  I0BUF2  (2048) 

ALL  contains  three  I/O  buffers  of  2048  words  each.  These  buffers 
are  involved  in  all  I/O  routines  and  computations. 

/UNVRSL/  INPDEV,  OUTDEV,  CRT,  PRINTR,  IXRTN,  STSVL,  ISCS,  FFCPYD, 
CCCPYD,  TAPENO,  NWMLTP,  NWBUTP,  NWFFTP ,  DMA,  TPTOTP,  RECTYP,  RT, 
RTRY,  WTRY,  FLR(IO),  DESR(30) 

UNVRSL  contains  assignments,  flags,  return  conditions,  etc. 

INPDEV  -  Input  device  can  be  either  2  or  3 

OUTDEV  -  output  device  for  tape  drive  2  or  3,  respectively 

CRT  =  5 

PRINTR  =  6 

IXRTN  =  Status  flag  for  various  subroutines: 

RSUMCK  returns  IXRTN  *  1  for  good  read 

=  2  for  EOT  encountered 

=  3  for  bad  read 

=  4  for  sum  check  error 

XFRFIL  sets  IXRTN  =  5  for  wrong  record  count 

=  6  for  wrong  record  type 
=  7  bad  read  after  write 
a  8  bad  compare  second  time 
=  9  bad  sum  check  after  write 
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TABLE  3-1.  COMMON  AREAS  ACCESSED  BY  EACH  SUBROUTINE 


m 


SUBROUTINES 


v> 

a. 

> 


o 


o 

o 

o 


o 

z 

E 


MASTER 


V 


V 


V 


V 


V 


V 


V 


V 


CPYOOC 


v 


V 


v 


RDTAPE 


V 


V 


LIBCPY 


V 


V 


V 


V 


V 


EMTTP 


CLLTP 


V 


V 


V 


V 


V 


V 


V 


T 


T 


V 


V 


IITLCPY 


V 


V 


XFRFIL 


V 


sj 


V 


V 


CHOICE 


V 


V 


V 


V 


V 


V 


yj 


V 


TPTP 


V 


V 


V 


V 


V  I  V 


RSUMCK 


V 


V 


V 


RDWR 


V 


JMPSW 


V 


V 


V 


V 


V 


V 


RDWKTP 


V 


V 


s/ 


yj 


EODPRC 


V 


V 


V 


yj 


V 


V 


V 


LBTPFD 


V 


V 


V 


V 


V 


CATFND 


V 


V 


V 


V 


V 


V 


V 


V 


V 


CRTCK 


V 


V 


V 


V 


V 


CMPRCD 


V 


V 


V 


V 


BDCMP 


CATUTl 


V 

V 


V 


V 


V 


V 


V 


V 


V 


TPUTL 


V 


V 


V 


V 


WFUTl 


V 


V 


V 


CATUPD 


V 


V 


V 


V 


V 


V 


V 


WFUPD 


V 


V 


V 


y/ 


V 


V 


IINSRTO 


V 


V 


V 


CATLST 


LOCFLS 


V 


V 


V 


V 


V 


V 


V 


V 


FOMPNU 


V 


V 


V 


V 


yj 


POSTAP 


yj 


V 


V 


V 


V 


DSPLAY 


V 


V 


V 


V 


WRRING 


y/ 


YESNO 


SELECT 


HOWMNY 


V 


V 


ZERO 


6BGRTN 


6RI0CK 


FLCPY 


V 


V 


V 


V 


V 


V 


V 


V 


V 


V 


v 


v 


v 


V 


V 


V 


V 


V 


V 


V 


V 
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FUNCTN 


TPTP  sets  the  same  values  as  above. 

JMPSW  tests  IXRTN  and  takes  appropriate  action. 

STSVL  =  status  flag  returned  by  JMPSW  to  UTLCPY 

STSVL  =  1  OK,  continue 

=  2  bad  read  first  time,  try  again 
=  3  bad  write  first  time,  try  again 
=  4  attempt  entire  file  again 
=  5  end-of-tape  encountered,  continue 

UTLCPY  branches  on  STSVL  and  goes  to  appropriate  step  in  program. 

ISCS  =  status  flag  for  compare  routine  CMPRCD 

ISCS  =  0  for  good  compare 
=  1  for  bad  compare 

FFCPYD  =  status  flag  for  transfer  file  attempt. 

FFCPYD  is  set  to  "1"  In  JMPSW  if  the  second  file  transfer  failed. 

CLLTP  checks  FFCPYD  after  each  file  -  if  set  to  "1",  no  further 
processing  is  done  for  the  failed  cell. 

CCCPYD  =  counter  for  number  of  bad  files  put  on  output  library  tape 
while  a  file  transfer  is  attempted.  CCCPYD  is  Incremented 
by  one  every  time  JMPSW  writes  an  EOT  on  a  library  tape  for 
a  bad  file.  Also  Incremented  by  BDCMP  if  it  writes  a  bad 
file.  CLLTP  adds  CCCPYD  to  the  usage  table  for  that  libra¬ 
ry  tape  to  update  the  usage  table  and  track  the  number  of 
files  on  the  tape. 

TAPENO  =  tape  numbers  assigned  to  a  PTR.  LBTPFD  and  TPUTL  use  this 
variable,  retrieving  the  tape  number  from  the  PTRTBL. 

NWMLTP  =  the  new  ML  tape,  calculated  by  LBTPFD  by  adding  the  tape 
number  to  2000.  NWMLTP  is  placed  In  CLINFO  (  ,  12)  as  the 
ML  tape  assigned  to  the  grid  zone. 

NWBUTP  =  the  new  MLBU  tape,  calculated  by  LBTPFD  by  adding  the  tape 
number  to  3000.  NWBUTP  is  placed  in  CLINFO  (  ,  14)  as  the 
MLBU  tape  assigned  to  the  grid  zone. 

NWFFTP  *  the  new  FF  tape,  calculated  by  LBTPFD  by  adding  the  tape 
number  to  4000.  NWFFTP  is  placed  in  ClINFO  (  ,  16)  as  the 
FF  tape  assigned  to  the  grid  zone. 

DMA  =  a  logical  set  true  for  DMA  tapes  and  straight  tape- to- tape 
copies.  Operator  queried  in  ENTTP.  When  true,  the  entire 
tape  is  copied;  when  false,  the  first  file  (header)  of  a 
tape  is  skipped. 
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TPTOTP  *  a  logical  set  true  for  tape-to-tape  copies.  Set  In  the  pro¬ 
gram.  Used  In  UTLCPY  to  select  either  XFRFIL  or  TPTP  rou¬ 
tine.  If  TPTOTP  =  .TRUE,  TPTP  selected. 

RECTYP  =  record  type.  Used  In  various  places  as  variable  for  record 
type  In  header  FLR(l)  or  DESR{1). 

RT  =  retry  record  flag.  During  the  file  transfer  routines,  XFRFIL 
Is  selected  by  UTLCPY.  The  file  Is  transferred  by  first 
transferring  the  header  (done  by  XFRFIL)  and  then  transfer¬ 
ring  the  rest  of  the  data  (done  by  CHOICE).  When  a  bad 
record  Is  read  In  the  middle  of  the  data,  JMPSW  will  try  to 
reread  the  same  record.  It  goes  back  to  UTLCPY,  which 
again  tries  to  call  XFRFIL.  RT  is  set  equal  to  1  as  soon 
as  the  header  is  transferred.  Then,  on  second  read  or 
write  attempts,  the  header  transfer  logic  Is  skipped,  going 
immediately  to  CHOICE  to  retry  the  record.  After  the  file 
is  processed,  JMPSW  resets  RT  to  zero. 

RTRY  =  read  try  flag.  RTRY  is  set  equal  to  zero  in  UTLCPY  prior  to 
attempting  a  copy.  If  a  bad  read  Is  detected,  JMPSW  sets 
RTRY  equal  to  1  and  retries  the  record.  On  the  second  try, 
JMPSW  tests  RTRY  and  goes  to  the  try  file  again  logic.  RTRY 
1 s  reset  to  zero  after  JMPSW  processes  the  file. 

WTRY  =  write  try  flag.  WTRY  Is  set  equal  to  zero  in  UTLCPY  prior 
to  attempting  a  copy.  If  a  bad  write  is  detected,  JMPSW 
sets  WTRY  equal  to  1  and  retires  the  record.  On  the  sec¬ 
ond  try,  JMPSW  tests  WTRY  and  goes  to  the  try  file  again 
loqic.  WTRY  is  reset  to  zero  after  JMPSW  processes  the 
file. 


FLR(IO)  =  10  words  dimensioned  for  header  FLR's.  Only  nine  words 
are  actually  used  by  FLR. 

DESR(30)  =  30  words  dimensioned  for  header  designation  records. 
Only  29  words  are  actually  used  by  DESR. 


/CATALG/  CLINFO  (30,  25),  INFOBF,  NUMMPS  (INC),  LIBKEY 


CATALG  contains  variables  and  arrays  concerned  with  the  catalog. 
CLINFO  (30,  25)  -  an  array  of  30  entries,  25  words  each.  Each  entry 


Is  a  catalog  record  which  will  be  transferred  to  the  catalog  In  CATUPD. 
The  CLINFO  words  are  assigned  as  follows: 


CLINFO  ( 

9 

1) 

= 

Record  Type  101100  (0) 

(  ,  14) 

= 

MLBU  Tape  Number 

( 

9 

2) 

= 

Record  Number 

(  ,  15) 

= 

MLBU  File  Number 

( 

9 

3) 

= 

UTM  Grid  Designation 

(  ,  16) 

= 

FF  Tape  Number 

( 

9 

4) 

= 

UTM  Grid  Designation 

(  ,  17) 

= 

FF  File  Number 

( 

% 

5) 

= 

UTM  Grid  Designation 

(  ,  18) 

= 

Month  and  Date 

( 

t 

6) 

= 

S/W  Corner  Northing,  High 

(  ,  19) 

= 

Year 

( 

9 

7) 

= 

S/W  Corner  Northing,  Low 

(  ,  20) 

= 

PRFX 

( 

9 

8) 

= 

S/W  Corner  Easting,  High 

(  ,  21) 

= 

INFX 

( 

9 

9) 

= 

S/W  Corner  Easting,  Low 

(  ,  22) 

= 

File  Location 

( 

9 

10) 

= 

Number  of  km  in  N/S  Direction 

(  ,  23) 

= 

STATUS 

( 

9 

11) 

= 

Number  of  km  In  E/W  Direction 

(  ,  24) 

= 

-1 

( 

9 

12) 

= 

ML  Tape  Number 

(  ,  25) 

= 

-Sum 

( 

9 

13) 

= 

ML  File  Number 

INFOBF  -  Used  twice  In  the  program.  Set  in  CLLTP  to  the  number  of  the 
cell  being  entered;  not  used  in  decisions.  Also  set  In  TPUTL  If  a  header 
file  is  wrong.  If  a  header  on  either  the  ML,  MLBU  or  FF  tape  is  incorrect, 
INFOBF  Is  set  equal  to  999.  TPUTL  and  the  other  routines  involved  all 
test  INFOBF.  A  999  causes  the  entire  program  to  be  exited. 


NUMMPS  or  INC  -  set  in  HOWMNY .  The  number  of  maps  to  be  processed 
or  looked  up. 

LIBKEY  -  set  to  1  if  tape  is  to  be  copied  verbatim,  without  breaking. 
Set  to  zero  for  one  file  verbatim  copy.  Set  In  MASTER  and  FLCPY  used 
by  ENTTP . 


/DSRVL/SPR,  XC,  RTNVL ,  I LAST,  GRDZN(3) ,  FLCT,  WDS,  LOR,  LDE,  LLR,  RPM, 
SM,  NC,  NR 

DSRVL  contains  variables  used  for  the  designator  record.  XFRFIL 
recalculates  many  values  when  condensing  FF  cells. 
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SPR  =  number  of  scans  of  each  output  record 


SPR  =  5  for  125m 
=  10  250m 

=  20  500m 

=  25  1,000m 

XC  =  number  of  data  records  transferred.  Set  equal  to  zero  at  begin¬ 
ning  of  CHOICE  and  incremented  by  XINCR  after  each  read. 

RTNVL  =  status  flag  set  by  CHOICE  to  Indicate  status.  XFRFIL 
branches  on  RTNVL  to  set  1XRTN. 

CHOICE  returns: 

RTNVL  =  1  For  bad  compare  first  time 
■  2  Improper  record 
=  3  EOT  encountered 
=  4  Bad  read  after  write 
=  5  For  bad  read  or  sum  check  error  on  read 
=  6  Sum  check  error  on  output 
=7  Bad  compare  second  time 

I  LAST  =  passed  parameter  in  some  SIO  calls.  Tested  in  CMPRCD  to 
verify  that  only  1  to  2048  words  were  passed. 

GRDZN(3)  =  dimensioned  area  for  grid  zone  designation.  An  equiva¬ 
lence  is  established  between  GRDZN  and  MAP  in  CRTCK. 
CRTCK  computes  GRDZN  values  from  UTM  grid  designator  en¬ 
tered.  These  values  are  then  entered  in  CLINFO  (  ,  3), 
CLINFO  (  ,  4),  and  CLINFO  (  ,  5),  by  LBTPFD. 

FLCT  =  keeps  track  of  number  of  file  tries  in  FF  transfer.  Used  in 
CLLTP ♦ 

WDS  *  passed  parameter  is  some  SIO  calls.  Not  tested. 

LDR  =  the  number  of  words  In  designator  record.  In  XFRFIL,  desig¬ 
nator  record  length  is  taken  from  FLR  (4)  and  used  in  the  write 
designator  call  to  SIO. 

LDE  =  number  of  words  per  data  record  -  computed  in  XFRFIL 
LDE1  =  SPR1  and  JINCR  +5 


LLR  =  length  of  last  data  record  -  computed  in  XFRFIL 
LLR1  =  5+  MOD  (RPM1,  SPR1)  7  JINCR 

NOTE:  LDE  and  LLR  values  are  used  by  CHOICE  when  creating  the  out¬ 
put  records. 
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RPM  =  number  of  scan  profiles  In  each  UTM  cell  computed  in  XFRFIL 
as: 

RPM1  =  { NCA  *  SM)  +  1 
RPM  =  801  (125m) 

=  401  (250m) 

=  201  (500m) 

=  101  (1000m) 

NOTE:  L0E1,  LLR1,  and  RPM1  are  used  in  XFRFIL,  but  put  into  commons 
as  LDE,  LLR,  and  RPM. 

SM  =  spacing  multiple 

SM  =  8  for  125m 
=  4  for  250m 
=  2  for  500m 
=  1  for  1000m 

NC  =  number  of  km  in  E/W  direction 
NR  =  number  of  km  in  N/S  direction 


/FFILES/FF,  RC,  RECCT,  RECSM,  CMPBAD,  JINCR,  EP,  YOFFSET 

FF  =  field  file  flag 

FF  =  0  for  125m 
=  1  for  250m 
=  2  for  500m 
=  3  for  1000m 
=  4  for  straight  copies 

XFRFIL  branches  on  FF  to  get  correct  spacing  multiple. 

FF  is  set  in  MASTER,  and  for  file  transfers,  in  CLLTP. 

It  is  also  set  in  ENTTP . 

CHOICE  also  branches  on  FF  to  set  the  correct  increments  in  t*-e  con¬ 
densing  process. 

RC  *  record  count.  TPTP  and  CHOICE  increment  the  count.  JMPSW 
uses  RC  to  identify  which  record  is  bad. 

RECCT  =  also  a  record  count.  Although  incremented  separately  in 
CHOICE,  set  equal  to  RC  when  returned  to  XFRFIL. 

RECSM  =  number  of  output  records  for  each  format 

RECSM  =  RPM1/SPR1+1  Set  in  XFRFIL. 
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CMPBAD  =  return  flag  from  BDCMP. 

=  2  for  first  bad  compare 
=  3  for  second  bad  compare  -  try  file  again 
=  1  for  second  file  failure 


JINCR  =  used  to  compute  the  number  of  words  per  data  record. 

Set  in  XFRFIL . 

JINCR  =  (NRA  *  SM)  /  2  +  2  402  125m 

202  250m 

102  500m 

52  1,000m 


EP  =  SIZE  -1  where  size  is  the  number  of  words  in  the  data  record 
(LDE)  or  (for  the  last  record)  the  number  of  words  in  the  last 
record  (LLR).  EP  is  the  number  of  words  sum  checked,  and  the 
sum  check  is  put  in  the  next  word.  Used  in  CHOICE. 

YOFFSET  =  number  of  bytes  to  offset  data  packed  into  the  output 
buffer.  Used  by  RDWR.  Initially  set  to  10  in  CHOICE 
and  incremented  by  one  in  RDWR.  Initial  offset  for  record 
type,  count,  etc. 


/RDSMCK/IOBUF,  LOGDEV 

RDSMCK  contains  variables  used  by  the  RSUMCK  subroutine. 

IOBUF  determines  the  input  buffer  RSUMCK  will  read  into: 

IOBUF  =  0  for  I OB UFO 

=  1  for  I0BUF1 

=  2  for  I0BUF2 

LOGDEV  is  the  input  device  RSUMCK  will  read  from: 

LOGDEV  =  2  for  tape  drive  2 
=  3  for  tape  drive  3 


/FLAGR/BUFFLG 

BUFFLG  is  used  to  determine  if  a  tape  mark  means  end-of-flle  or  end- 
of-tape.  When  an  entire  tape  is  being  copied,  an  EOT  is  picked  up  and 
handled  as  the  end-of-flle.  IXRTN  is  set  to  1  for  file  copied  and  BUFFLG 
is  set  to  1.  If  it  was  an  end-of-file,  and  another  file  is  to  be  read, 
BUFFLG  is  reset  to  zero  after  the  first  word  of  the  file  is  read.  If  it 
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is  an  end-of-tape,  the  next  word  read  is  another  EOT.  This  time  BUFFLG  is 
1,  and  TPTP  then  returns  an  IXRTN  of  2  for  END-OF-TAPE. 

/OOC/ISTATN,  FIFLG 

ISTATN  is  the  status  return  flag  between  CPYDOC  and  RDTAPE 

ISTATN  =  1  for  bad  read 

=  2  for  EOT  encountered 

If  ISTATN  is  not  1  or  2,  CPYDOC  continues.  ISTATN  is  also  used  as 
the  status  parameter  in  many  SIO  calls.  These  may  or  may  not  be  tested, 
depending  on  the  routine. 

FIFLG  is  a  logical  flag  set  in  the  DMA  copy  routine.  When  copying 
a  DMA  tape,  CPYDOC  will  direct  the  operator  to  check  the  header  infor¬ 
mation  for  the  first  file.  After  the  first  file,  FIFLG  is  set  to  .TRUE, 
and  the  remaining  files  are  copied  without  interruption. 

FIFLG  is  also  used  in  the  same  way  in  ENTTP .  When  first  beginning 
a  tape-to-tape  copy,  the  operator  is  asked  if  the  entire  tape  is  to  be 
copied.  After  the  first  file,  FIFLG  is  set  to  TRUE,  and  this  question 
is  skipped  for  the  remaining  files. 

/DEFRVL/NOHI ,  NOLO,  EOHI,  EOLO 

DEFRVL  contains  northing  and  easting  values.  Because  these  values 
require  two  words  to  store,  a  high  and  low  order  word  is  used. 

RDTAPE  computes  the  northing  high  and  low  values,  and  the  easting 
high  and  low  values  from  the  DMA  definition  record.  XFRFIL  also  addresses 
this  commons  when  transferring  values. 


/RING/ON,  OFF 

RING  contains  the  values  for  one  of  the  parameters  used  by  WRRING. 

ON  =  0 
OFF  =  1 

These  values  are  Initially  set  In  MASTER. 

/TABLE1/PTRREC  (1205),  USGREC  (1005),  GLPRPL  (90),  LCLRPL  (85),  USGRC2 
(1005),  USGRC3  (1005) 

PTRREC  (1205)  -  The  PTR  record,  1205  words  -  contains  the  tape  assign¬ 
ments  for  each  PTR.  In  the  program,  an  equivalence  Is  set  up  between 
PTRREC  (3)  and  PTRTBL  (1),  the  five  extra  words  being  used  for  record  type 
and  check  sums. 

Each  word  of  the  PTRTBL  corresponds  to  a  PTR  number  (1200  maximum). 
The  tape  number  assigned  to  that  PTR  is  placed  in  the  appropriate  PTRTBL 
location. 

USGREC  (1005)  These  are  the  usage  records,  one  for  the  ML 

USGRC2  (1005)  tapes  (USGREC),  one  for  the  MLBU  tapes  (US- 

USGRC3  (1005)  GRC2) ,  and  one  for  the  FF  tapes  (USGRC3) . 

Each  word  of  the  usage  table  corresponds  to  a  tape  number  (999 
maximum).  The  number  of  files  on  a  tape  is  placed  in  the  appropriate 
usage  table  location. 

GLBRPL  (90)  -  The  global  replacement  record  -  records  the  tape  num¬ 
bers  and  file  number  of  replaced  cells.  In  the  program,  an  equivalence 
Is  set  up  between  GLBRPL(3)  and  GLBTBL.  WFUPD  adds  to  the  GLBTBL  every 
time  a  cell  is  replaced. 

LCLRPL  (85)  -  A  local  replacement  table  not  used  at  this  time.  Ori¬ 
ginally  Intended  to  keep  track  of  bad  locations  on  tape. 


/TABLE2/F I XREC  (9),  DESREC  (10),  FXRECR  (9),  FXRECP  (9),  OSRECP  (10), 
FXRECU  (9),  DSRECU  (10) 

TABLE2  contains  arrays  for  working  file  headers. 

FIXREC,  DESREC  -  FLR  and  DESR  record  for  header  file. 

FXRECP,  DSRECP  -  FLR  and  DESR  for  PTR  file. 

FXRECU,  DSRECU  -  FLR  and  DESR  for  usage  table  file. 

FXRECR  -  FLR  for  replacement  file. 

/FIND/PRFX,  INFX,  SFFX1,  SFFX2 

FIND  contains  variables  which  describe  the  UTM  grid  designator. 

CRTCK  interprets  the  operator-input  UTM  grid  zone  and  separates  it 
into  a  PRFX,  INFX,  SFFX1  and  SFFX2  as  follows: 

2KPQ  15KPQ 

i  I  I  I  I  I  I  I 

PRFX  INFX  SFFX1  SFFX2  PRFX  INFX  SFFX1  SFFX2 

LBTPFD  then  enters  the  PRFX  and  INFX  into  CLINFO  (  ,  20)  and  CLINFO 

(  ,  21). 

/FILCT/XY,  NWCAT,  CLCTR,  MMDD,  YYYY,  PRFLG,  MM,  DD,  YY 

XY  -  used  to  determine  whether  the  Master  Catalog  is  a  new  initial 
tape  with  only  a  catalog  header  and  no  catalog  records  on  it. 
XY  is  set  initially  to  zero  in  WFUPD.  If  a  record  is  read,  it 
is  set  to  1.  If  an  EOT  is  encountered  before  any  records  are 
read,  XY  remains  zero.  CATUPD  then  tests  the  condition  of  XY 
to  determine  the  record  count  on  the  next  entry.  For  new  tape 
(XY  =  0)  the  record  count  begins  at  zero.  If  there  are  records 
already  on  the  catalog  (XY  =  1),  the  record  count  of  the  last 
catalog  record  is  incremented  by  one  for  the  new  entry. 
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NWCAT  -  flag  for  an  update  master  catalog  tape.  CATUPD  Initially  sets 
NWCAT  =  zero  for  normal  catalog  entries.  If  the  replacement  file 
becomes  full  while  trying  to  enter  the  new  maps,  WFUPD  calls  in 
GBGRTN  to  make  a  new  catalog  tape,  deleting  all  replaced  cells. 
After  a  new  catalog  is  made,  WFUPD  sets  NWCAT  to  1.  CATUPD 
then  tests  NWCAT.  If  a  new  catalog  was  made,  CATUPD  returns  to 
its  beginning  and  tries  to  enter  the  new  records  again. 

CLCTR  -  (cell  counter)  -  initially  set  to  zero  in  MASTER.  As  each  map 
is  entered  into  the  library,  CLLTP  increments  CLCTR  by  1.  The 
number  of  cells  entered  is  printed  out  in  the  working  files 
log.  EODPRC  resets  it  to  zero. 

PRFLG  -  used  only  to  check  for  backup  catalog  tape  header  in  TPTP. 
Redundant  check  -  not  used. 

MMDD  -  month  and  day  values 
YYYY  -  year 

MM  -  month 

DO  -  day 

YY  -  year 

/TAPPOS/MAPNO 

MAPNO  is  the  file  to  which  the  CPYOBJ  scratch  tape  is  presently  posi¬ 
tioned.  Used  by  CLLTP,  FDMPNU,  POSTAP,  and  LOCFLS  to  keep  track  of 
position  of  tape. 

/WF/GBGMSG 

Flag  for  bad  working  tape  read.  Initially  set  to  zero  in  MASTER.  If 
RPWKTP  has  a  bad  read  or  unformatted  tape,  asks  operator  to  mount  backup. 


All  set  in  MASTER, 
contain  date  fnfor- 
mation. 


4* 
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and  sets  GBGMSG  to  1.  If  It  still  has  a  bad  read  with  the  backup,  it 
returns  to  MASTER  and  stops  the  program. 


/FUNCTN/FILBCK,  FILFOR,  RECBCK,  RECFOR,  READ,  WRITE 

FUNCTN  defines  SIO  functions.  Used  In  FDMPNU  and  POSTAP. 

FILBCK  =8  -  pass  file  backward 

FILFOR  =5  -  pass  file  forward 

RECBCK  =4  -  pass  record  backward 

RECFOR  =3  -  pass  record  forward 

READ  =0  -  read 

WRITE  =  1  -  write 

/TFIND/TRFX,  TNFX 

Similar  to  PRFX  and  INFX,  only  separate  commons  required  when  creat¬ 
ing  tape  header.  Used  by  TPUTL  and  GRIDCK.  GRIDCK  Interprets  operator- 
input  grid  zone  and  separates  It  into  TRFX -TNFX. 

2  K  15  K 

II  II 

TRFX  TNFX  TRFX  TNFX 

B 

B  Is  used  only  by  ZERO  and  WFUTL .  It  defines  an  array  used  to  zero  out 
files  required  by  WFUTL . 
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SECTION  4 


SUBROUTINE  DESCRIPTIONS 

The  subroutines  that  comprise  the  library  system  are  described  In  this 
chapter.  Each  subroutine  description  Is  accompanied  by  a  flow  diagram. 

Two  subroutines,  WRRING  and  YESNO,  are  used  so  often  that  calls  to 
them  are  not  shown  on  the  flow  diagrams.  Instead,  WRRING  calls  are  shown 
as  a  write  ring  decision  marked  with  one  asterisk  (*).  Calls  to  YESNO 
are  shown  as  yes/no  responses  and  marked  with  two  asterisks  (**). 

Subroutine  names  are  underlined  to  distinguish  them  from  variables. 
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4.1  MASTER 


MASTER  Is  the  control  program  for  the  library  system.  It  presents 
the  functions  available  for  the  operator's  selection,  and  controls  the 
required  processing. 

In  addition  to  Initializing  variables,  MASTER  calls  the  subroutine 
SETTRT  to  set  system  parameters  so  that  a  "1"  is  returned  on  a  bad  read. 
The  last  statement  In  MASTER  Is  a  call  to  SETSYS,  which  resets  the  system 
parameters . 

MASTER  directs  the  operator  to  set  the  tape  density,  load  the  working 
tape,  and  enter  the  date.  When  these  steps  are  accomplished,  the  Master 
Menu  Is  displayed,  giving  the  operator  a  choice  of  functions. 

When  a  selection  has  been  made,  MASTER  calls  the  appropriate  routines 
for  processing.  Table  4-1  lists  all  the  functions  available  on  the  library 
system.  For  the  MASTER  flow  diagram,  refer  to  Figure  4-1. 
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TABLE  4-1.  LIBRARY  FUNCTIONS 


Process  New  DMA  Tape 
A.  COPY  DMA  TAPE 


B.  ENTER  VERIFIED  CELL 
INTO  LIBRARY 


Display  Copy  Options 

A.  COPY  ENTIRE  TAPE 

B.  COPY  CELL  ON  TAPE 


Display  List  Options 

A.  UNSORTED  LISTING  OF  MASTER 
CATALOG 

6 .  SORT  AND  LIST  BY  GRID 
DESIGNATOR 

C.  SORT  AND  LIST  BY  NORTH¬ 
ING/EASTING 


lispl ay  Utilities 

A.  HELP 

B.  RE8UILD  CATALOG 


C.  BUILD  TAPE  WITH  HEADER 

FILE 

D.  CATALOG  FIND  UTILITY 

E.  REPLACE  BAD  CELL 


makes  verbatim  copy  of  original 
DMA  tape 

enters  map  onto  ML,  MLB  1J,  and  FF 
tapes,  catalogs  entries,  makes  new 
working  tape 


makes  a  verbatim  copy  of  a  tape 

copies  any  specified  file  onto  a 
tape 


gives  a  readout  of  every  catalog 
entry 

N/A  (Not  presently  programmed) 
N/A  (Not  presently  programmed) 


N/A  (Not  presently  programmed) 

creates  headers  for  master  and  back¬ 
up  catalog  tapes 

creates  headers  for  ML,  MLBU,  and  FF 
tapes 

searches  catalog  for  a  specific  map 

N/A  (Not  presently  programmed) 

creates  initial  working  tape  -  all 
files  zeroed 


I 


\ 


F.  REBUILD  WORKING  FILE 


TABLE  4- 

DISPLAY  CELL  GRAPHICS 
END-OF-DAY  PROCESSING 

SHUT  DOWN 


.  LIBRARY  FUNCTIONS  (Continued) 

N/A  (Not  presently  programmed) 

prints  working  file  log  and  cre¬ 
ates  new  working  tape 

resets  system  parameters 
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Figure  4-1. 


MASTER  Flow  Diagram  (Sheet  1  of  7) 
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Figure  4' 


1.  MASTER  Flow  Diagram  (Sheet  3  of  7) 
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Figure  4-1 


.  MASTER  Flow  Diagram  (Sheet  5  of  7) 
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Figure  4-1.  MASTER  Flow  Diagram  (Sheet  7  of  7) 


4.2  CPYDOC 

CPYDOC  Is  the  control  program  for  making  a  verbatim  copy  of  the  DMA 
original.  It  Is  called  by  MASTER  when  the  DMA  option  COPY  DMA  TAPE  Is 
selected.  The  flow  diagram  for  CPYDOC  Is  shown  In  Figure  4-2. 


'WRRING 


Figure  4-2.  CPYDOC  Flow  Diagram  (Sheet  1  of  3) 
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Figure  4-2 


CPYDOC  Flow  Diagram  (Sheet  3  of  3) 


4.3  RDTAPE 


RDTAPE  reads,  converts,  and  displays  Information  from  the  header  of 
a  DMA  file.  It  Is  called  by  CPYDOC  before  each  file  Is  copied.  If  the 
file  cannot  be  read.  It  returns  to  CPYDOC  with  ISTATN  equal  to  1  (for  a 
bad  read)  or  2  (for  an  EOT).  If  the  read  was  good,  It  converts  the  north¬ 
ing/easting  points  and  displays  the  Information.  It  then  backs  up  the 
DMA  tape  to  the  beginning  of  the  file.  The  flow  diagram  for  RDTAPE  is 
given  In  Figure  4-3. 
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4.4  LIBCPY 
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LIBCPY  controls  the  entering  of  a  map  Into  the  library.  It  Is  called 
by  MASTER  when  the  DMA  option  ENTER  VERIFIED  CELL  INTO  LIBRARY  Is  selected. 
LIBCPY  first  zeros  the  CL  INFO  array  In  preparation,  and  then  calls 
LBTPFO  to  get  the  numbers  of  maps  being  entered,  their  grid  zone  refer¬ 
ence  designators,  and  the  tape  numbers  assigned  to  each  map.  CLLTP  Is 
then  called  to  do  the  actual  copying.  When  the  copy  Is  done,  CATUPD 
Is  called  to  update  the  catalog.  Finally,  EODPRC  Is  called  to  update 
and  store  the  working  files.  Figure  4-4  shows  the  flow  diagram  for 
LIBCPY. 
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START 


Figure  4-4.  LIBCPY  Flow  Diagram 
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4.5  ENTTP 


ENTTP  Interrogates  the  operator  and  sets  the  necessary  parameters 
to  produce  a  verbatim  tape  copy,  a  file  copy,  or  a  catalog  backup. 
ENTTP  can  be  called  independently  by  the  copy  option  COPY  ENTIRE  TAPE. 
It  is  also  called  by  TPTP  when  a  DMA  copy  is  being  made,  or  by  EODPRC 
when  a  catalog  backup  is  being  made. 

When  called  as  a  copy  option,  ENTTP  copies  the  entire  tape  without 
interruption.  For  DMA  copies,  control  is  returned  to  TPTP  after  each 
file  so  RDTAPE  can  display  the  header  information.  For  catalog  backup 
copies,  the  header  file  of  each  tape  is  skipped  and  the  remaining  file 
is  copied. 

The  flow  diagram  for  ENTTP  is  shown  in  Figure  4-5. 
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4.6  CLLTP 


CLLTP  controls  the  copying  of  the  maps  from  the  DMA  CPYOBJ  scratch 
tape  onto  the  appropriate  library  tapes.  It  keeps  track  of  the  maps 
copied,  the  positioning  of  the  scratch  tape,  the  files  added  to  the 
tapes,  and  the  file  numbers  of  the  newly  added  maps. 

When  a  CLLTP  Is  called,  the  number  of  maps  to  be  processed  (NUMMPS)  is 
known,  and  the  grid  zone  designators  of  these  maps  are  already  in  the 
CLINFO  array.  The  tape  numbers  of  the  ML,  MLBU,  and  FF  tapes  associated 
with  the  individual  maps  are  also  In  the  array. 

The  23rd  position  of  the  CLINFO  array  (the  status  word)  Is  Initially 
set  to  zero  for  all  the  maps  (indicating  not  done). 

The  operator  Is  directed  to  mount  the  CPYOBJ  scratch  tape.  The  sub¬ 
routine  LOCFLS  goes  through  the  scratch  tape  and  places  the  file  position 
of  a  particular  map  on  the  scratch  tape  Into  the  22nd  CLINFO  position  for 
that  map.  This  establishes  a  reference  between  a  given  map  and  its  loca¬ 
tion  on  the  scratch  tape. 

LOCFLS  will  search  the  tape  until  all  the  maps  to  be  processed  are 
found.  A  message  Is  output  If  the  map  Is  not  found  on  the  tape  or  If  It 
could  not  be  read.  In  this  case,  nothing  will  be  done  for  that  map. 

At  this  point,  all  the  Information  needed  to  process  a  map  is  stored 
In  CLINFO:  map  designator  and  grid  zone,  the  ML,  MLBU,  and  FF  tape  num¬ 
bers,  and  the  location  of  the  map  on  the  CPYOBJ  scratch  tape.  The  pro¬ 
gram  processes  the  maps  by  grid  zones.  In  the  order  in  which  they  were 
entered.  All  the  maps  of  one  grid  zone  are  done  first,  then  the  second. 
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and  so  on.  The  grid  zone  of  the  first  map  Is  retrieved  from  CLINFO  and 

compared  with  the  grid  zones  of  the  remaining  maps.  All  maps  having  the 

same  grid  zone  (and  therefore  to  be  put  on  the  same  library  tape)  are 
flagged  for  processing  by  setting  the  corresponding  position  in  the 
DOIT  array  to  .TRUE. 

The  actual  ML  tape  number  for  the  map  Is  retrieved  from  CLINFO, 
and  the  number  of  files  already  on  the  tape  is  retrieved  from  the  ML 
usage  table  (USGTBL).  The  operator  is  directed  to  mount  the  appropri¬ 
ate  tape  on  tape  drive  3.  The  tape  Is  checked  to  verify  that  it  is  the 
correct  tape  and  that  It  Is  write  enabled.  If  either  condition  is  not 
met,  an  error  message  is  displayed  on  the  CRT  and  the  operator  prompt 
Is  displayed  again.  The  files  already  put  on  the  library  tape  are  skipped 
and  the  new  maps  are  added  after  the  last  file.  Once  the  ML  tape  is 
positioned  to  the  next  available  space,  a  loop  Is  entered  to  copy  the 
flagged  maps.  For  each  map,  the  DOIT  array  is  checked  and  all  maps 
flagged  .TRUE  are  copied.  Any  map  not  flagged  is  skipped  and  the  next 
map  Is  checked.  When  a  map  is  to  be  copied,  the  usage  table  is  again 
checked  to  make  sure  there  is  room  on  the  tape.  The  usage  table  was 

originally  checked  when  the  map  was  entered,  but  is  again  checked  be¬ 

fore  each  map  is  entered  in  case  the  tape  became  full  in  the  middle  of 
processing. 

If  a  map  should  be  processed,  but  the  tape  is  full  (41  files  are  the 
maximum),  a  "2"  is  put  into  the  23rd  position  of  the  CLINFO  array  for 
that  map,  and  its  position  in  the  DOIT  array  Is  set  to  .FALSE.  There 
will  be  no  further  attempt  to  process  the  map. 


The  map's  location  on  the  CPYOBJ  scratch  tape  Is  retrieved  from 
CLINFO  and  the  POSTAP  subroutine  Is  called  to  position  the  scratch  tape 
to  the  appropriate  file.  Once  the  scratch  tape  is  in  position,  the  UTLCPY 
subroutine  is  called  to  do  the  actual  copying  of  the  map  in  the  re¬ 
quired  formats.  Once  the  map  is  copied,  the  control  transfers  back 
to  CLLTP. 

If  the  file  copied  satisfactorily,  the  northing  and  easting  points 
of  the  map  are  added  to  CLINFO,  along  with  the  number  of  kilometers 
covered  by  the  map.  The  usage  table  is  incremented  by  1  for  the  file 
copied,  and  this  number  is  put  into  the  13th  position  of  the  CLINFO 
array.  This  is  the  file  number  the  map  holds  on  the  ML  tape. 

In  the  process  of  copying,  the  CCCPYD  flag  is  incremented  if  a  bad 
file  has  been  written.  If  the  file  could  not  be  copied  after  two  tries, 
the  FFCPYD  flag  is  set  to  "1."  CLLTP  adds  the  number  of  bad  files  writ¬ 
ten  to  the  usage  table  and  the  FFCPYD  flag  is  checked  to  see  if  it  is 
still  "0."  If  it  is  not,  this  means  that  the  file  did  not  copy  for 
some  reason,  and  a  "4"  is  put  into  the  23rd  position  of  the  CLINFO 
array  for  that  map  and  its  position  in  the  DOIT  array  is  set  to  .FALSE. 
No  further  attempts  are  made  to  copy  or  process  this  map. 

The  program  now  checks  the  remaining  maps  and  copies  all  those  to  be 
copied  on  this  tape.  This  continues  until  all  the  maps  having  this  grid 
zone  are  copied  onto  the  ML  tape. 

After  all  the  maps  are  copied,  two  EOT's  are  placed  on  the  ML  tape 
and  it  is  rewound. 
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At  this  point,  the  DOIT  array  Is  checked  to  see  If  at  least  one  map 
requires  further  processing.  If  not  (because  processing  was  stopped  due 
to  bad  copies  or  tape  limitations),  the  program  goes  on  to  the  next  grid 
zone. 

If  the  ML  tapes  have  copied  satisfactorily,  the  operator  Is  directed 
to  mount  the  MLBU  tape.  The  same  sequence  Is  followed  until  all  the  maps 
are  copied  onto  the  backup  tape.  Two  EOT's  are  output  and  the  tape  is 
rewound.  The  DOIT  array  is  again  checked  to  make  sure  further  process¬ 
ing  Is  required.  If  all  Is  well,  the  operator  Is  directed  to  mount  the 
FF  tape.  The  same  sequence  is  followed,  except  that  on  the  FF  tapes 
each  map  is  copied  three  times.  In  the  250m,  500m,  and  1000m  formats. 
Only  the  location  of  the  first  of  these  maps  Is  put  Into  CLINFO.  If 
anv  copy  Is  bad,  processing  Is  stopped. 

As  each  Individual  map  Is  completed,  a  "1"  is  placed  In  the  23rd 
position  of  CLINFO  (Indicating  that  processing  has  been  completed). 
The  CLCTR  flag  Is  Incremented  to  keep  track  of  the  number  of  cells  pro¬ 
cessed.  After  all  the  maps  of  this  grid  zone  are  done,  the  message: 

"GRID  ZONE  COMPLETED" 

"CONINTUE  PROCESSING  (YES  OR  NO)" 

Is  displayed.  If  the  operator  responds  "YES,"  the  next  grid  zone  is 
processed.  The  procedure  Is  Identical  except  that  different  tapes  are 
called  for.  If  the  operator  answers  "NO,"  or  If  all  the  maps  have  been 
completed  or  attempted,  the  results  of  the  processing  are  displayed  by 
the  DSPLAY  subroutine. 

The  maps  are  listed  In  five  categories:  completed,  not  yet  pro¬ 
cessed,  not  found  on  the  copy  scratch,  not  processed  due  to  bad  copy. 
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and  not  processed  due  to  tape  limitations.  The  operator  Is  then  dir¬ 
ected  to  dismount  the  scratch  tape  and  store  It  properly.  The  program 
now  exits  CLLTP. 

The  CLLTP  flow  diagram  is  shown  in  Figure  4-6. 
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Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  1  of  10) 
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Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  3  of  10) 
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Figure  4-6.  CLLTP  Flow  Diagram  {Sheet  5  of  10) 
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Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  6  of  10) 


Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  7  of  10] 
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Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  8  of  10) 
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Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  9  of  10) 


Figure  4-6.  CLLTP  Flow  Diagram  (Sheet  10  of  10) 


4.7  UTLCPY 


UTLCPY  controls  the  actual  copying  of  files  and  tapes.  It  Is 
called  by  ENTTP  for  entire  tape  copies,  and  by  CLLTP  for  library  entries. 
UTLCPY  calls  appropriate  subroutines  for  each  type  of  copy.  When  the 
copy  Is  completed,  It  calls  JMPSW  to  Interpret  the  result  of  the  copy 
and  takes  appropriate  action.  The  flow  diagram  for  UTLCPY  Is  shown  In 
Figure  4-7. 
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UTLCPY  Flow  Diagram  (Sheet  1  of  2) 
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4.8  XFRFIL 


XFRFIL  controls  the  copying  of  files  from  the  CPYOBJ  scratch  tape 
to  the  various  library  formats.  It  Is  called  by  UTLCPY  when  a  verified 
map  Is  to  be  entered  Into  the  library.  XFRFIL  transfers  the  header  records 
and  then  calls  the  subroutine  CHOICE  to  transfer  the  rest  of  the  map 
file. 

The  FLR  is  transferred  into  I0BUF1  using  the  RSUMCK  subroutine. 
RSUMCK  will  check  the  read  for  bad  reads  or  sum  check  errors.  If  an 

EOT  Is  detected,  RSUMCK  will  flag  It.  Any  error  condition  will  be 

flagged  and  XFRFIL  will  be  exited. 

If  the  original  read  was  good,  the  FLR  Is  written  out  to  the  output 
(library)  tape.  The  output  tape  is  then  backed  up  one  record  and  read 
back  onto  I0BUF2.  Again,  RSUMCK  Is  used  and  will  flag  any  errors.  If 

the  read  was  good,  I0BUF1  and  I0BUF2  are  compared.  If  the  compare  was 

good,  the  program  continues.  A  bad  compare  causes  the  BDCMP  subroutine 
to  be  called. 

Next,  XFRFIL  reads  the  definition  record  from  the  CPYOBJ  tape  into 
I0BUF0  using  RSUMCK .  If  the  read  was  good,  variables  which  depend  on 
the  library  format  are  computed.  These  variables,  along  with  the  rest 
of  the  definition  record,  are  transferred  Into  I0BUF1.  This  record  is 
then  written  out  and  reread  Into  I0BUF2.  The  buffers  are  compared,  and 
If  the  write  was  good,  the  program  continues. 

Control  then  switches  to  the  CHOICE  subroutine,  where  the  data 
records  are  transferred  Into  the  library  In  the  correct  format.  After 
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the  entire  file  Is  copied,  XFRFIL  checks  the  IXRTN  variable  for  the 
status.  Any  error  encountered  during  the  file  transfer  causes  an  error 
condition  to  be  flagged  and  XFRFIL  to  be  exited.  If  the  file  copied 
satisfactorily,  the  record  count  Is  checked.  A  wrong  record  count 
gives  an  error  condition.  If  all  Is  well,  IXRTN  =  1,  and  XFRFIL  Is 
exited.  The  flow  diagram  for  XFRFIL  Is  given  In  Figure  4-8. 
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Figure  4-8.  XFRFIL  Flow  Diagram  (Sheet  1  of  6) 


Figure  4-8.  XFRFIL  Flow  Diagram  (Sheet  3  of  6) 


Figure  4-8.  XFRFIL  Flow  Diagram  (Sheet  4  of  6) 
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Figure  4-8.  XFRFIL  Flow  Diagram  (Sheet  5  of  6) 
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Figure  4-8. 


XFRFIL  Flow  Diagram  (Sheet  6  of  6) 
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4.9  CHOICE 


CHOICE  transfers  the  data  records  (datars)  from  the  CPYOBO  scratch 
tape  to  the  specified  library  tape.  It  reads  the  datars,  sets  up  appropri¬ 
ate  parameters  for  conversion  Into  the  various  formats,  then  writes 
and  checks  the  modified  data  Into  the  library. 

XFRFIL  calls  CHOICE  to  read  and  reformat  the  datars.  Each  datar 
contains  one  scan.  For  125m  format  (ML,  MLBU) ,  every  datar  Is  read. 
The  output  record  Is  then  packed  so  that  It  contains  five  scans.  For 
the  FF  copies,  the  250m  format  reads  every  other  datar  and  packs  it  10 
scans  per  output  record  before  outputting  It  to  the  FF  tape.  In  the 
500m  format,  every  fourth  datar  Is  read  and  then  packed  20  scans  per 
output  record.  In  the  1,000m  format,  every  eighth  datar  Is  read  and 
then  packed  25  scans  per  output  record. 

The  variables  concerned  with  this  reformatting  are: 

XC  -  the  number  of  datars  contained  In  the  actual  DMA  cell  (801  for 
a  100  X  100km  cel  1 ) 

X  -  the  number  of  scans  In  the  output  record 
X  =  5  for  ML,  MLBU 
*  10  for  FF(250m) 

=  20  for  FF(500m) 

=  25  for  FF( 1,000m) 

CTR  -  number  of  scans  already  in  output  record 

ZOFF  -  number  of  Input  records  skipped  for  the  FF  copies 
ZOFF  »  1  for  250m 
=  3  for  500m 
=  7  for  1,000m 

IADDR,  YOFFST,  JADDR  -  all  used  offset  Increments  for  packing  buffer 
I0BUF1.  -  The  RDWR  subroutine  does  the  actual  manipulation. 

The  process  employed  for  the  reformatting  and  transfer  Is  as  follows: 

RSUMCK  Is  used  to  read  the  original  datar  Into  I0BUF0.  If  the  read 
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was  good,  the  subroutine  RDWR  is  called  to  pack  the  da tars  Into  I0BUF1. 
When  the  correct  number  of  scans  has  been  put  Into  the  buffer,  the  record 
type  and  count  are  set,  and  the  SUMCK  subroutine  is  called  to  set 
the  sum  check  word.  This  modified  record  is  then  written  out  to  the 
library  tape.  The  tape  is  backed  up  one  record,  and  R SUMCK  is  called 
to  read  it  back  into  I0BUF2.  If  the  read  was  good,  the  IOBUF's  are 
compared.  A  bad  compare  calls  the  BDCMP  subroutine.  If  the  compare 
was  good,  the  program  continues. 

The  status  of  the  transfer  is  given  by  the  variable  RTNVL  -  in  the 
common  /DSRVL/.  Status  is  indicated  as  follows: 

RTNVL  =  1  Bad  compare  -  first  file  try 
=  2  Improper  record  type 

=  3  EOT  encountered  on  original  record  (end-of-file) 

■  4  Bad  read  after  write 
=  5  Bad  read  on  original  record 
=  6  Sum  check  error  on  write 
=  7  Bad  compare  second  time 

Refer  to  Figure  4-9  for  the  CHOICE  flow  diagram. 
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Figure  4-9.  CHOICE  Flow  Diagram  (Sheet  1  of  4) 
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Figure  4-9.  CHOICE  Flow  Diagram  (Sheet  2  of  4) 
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Figure  4-9.  CHOICE  Flow  Diagram  (Sheet  4  of  4) 
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4.10  TPTP 


TPTP  reads  records  from  an  original  tape  Into  I0BUF1 
out  the  record  unchanged  and  then  reads  this  record  back 
It  then  calls  CMPRCD  to  compare  the  two  buffers. 


TPTP  Is  called  by  UTLCPY  when  a  tape-to-tape  copy 


#  IJ'ach  record  Is  checked  for  bad  reads  and  sum  check  errors. 

imi 

f  ff 

<  gi#e#4-10  shows  the  TPTP  flow  diagram. 


.  It  writes 
Into  I0BUF2. 

is  selected. 
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Figure  4-10.  TPTP  Flow  Diagram  (Sheet  1  of  3) 
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4.11  RSUMCK 


RSUMCK  reads  a  record  from  a  tape  device  and  checks  the  read  to  de¬ 
termine  If  an  EOT  was  encountered.  If  the  read  was  bad,  or  If  a  sum 
check  error  was  detected.  Depending  on  values  assigned  to  variables 
IOBUF  and  LOGDEV,  RSUMCK  will  read  from  any  tape  device  Into  I0BUF0, 
IOBUF1,  or  I0BUF2.  The  read  status  Is  returned  via  IXRTN  (In  the  common 
/UNVRSL/) : 

IXTRN  =  1  Good  read 

a  2  EOT  encountered 
s  3  Bad  read 

*  4  Sum  check  error  detected 

RSUMCK  Is  called  whenever  a  read  and  check  operation  Is  required. 
Refer  to  Figure  4-11  for  the  RSUMCK  flow  diagram. 
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Figure  4-11.  RSUMCK  Flow  Diagram  (Sheet  1  of  2) 
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Figure  4-11 
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.  RSUHCK  Flow  Diagram  (Sheet  2  of  2) 
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4.12  RDWR 


RDWR  controls  the  packing  of  the  output  record  (I0BUF1)  with  the 
required  number  of  scans  for  each  format.  RDWR  does  the  actual  packing 
of  the  buffer;  the  control  for  the  actual  number  and  the  offset  for  each 
scan  come  from  CHOICE,  the  calling  routine.  As  CHOICE  reads  an  input 
record  Into  I0BUF0,  RDWR  Is  called  to  transfer  the  height  deviation  (HD) 
values,  word  by  word,  Into  I0BUF1.  BYTERD  and  BYTEWR  are  called  to 
transfer  the  upper  and  lower  values  of  each  word.  The  Information  is 
stored  into  a  temporary  location  called  TGT,  which  is  then  read  Into 
the  appropriate  location  In  I0BUF1.  The  HD  values  from  each  additional 
scan  are  offset  with  a  given  Increment  for  packing  into  I0BUF1.  In 
addition,  each  format  picks  off  a  given  number  of  HD  values  from  the 
original.  ML  and  MLBU  formats  take  all  the  values,  while  the  FF  for¬ 
mats  vary. 

In  addition  to  the  four  passed  variables,  several  data  base  common 
variables  are  used  to  transfer  the  Information.  The  XR,  XC,  SM,  and  RC 
values  are  In  commons  and  are,  respectively,  the  number  of  kilometers 
In  the  N/S  direction,  the  number  of  datars  transferred,  the  spacing 
multiple,  and  the  record  count.  An  equivalence  Is  set  up  to  transfer 
record  type,  record  count,  spacing,  and  the  first  HD  value. 

YOFFST  Is  also  In  commons  and  controls  the  I0BUF1.  Once  Incremented 
for  each  scan  In  CHOICE,  RDWR  increments  It  by  1  so  that  each  byte  of 
I0BUF1  Is  filled.  The  passed  variables  IA,  CTR,  XOFFST,  and  XI  are 
set  to  retrieve  Information  from  the  input  buffer  I0BUF0.  IA  Is  the 
IADDR  value  set  In  CHOICE.  It  Is  originally  set  to  4  to  retrieve  the 
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x  coordinate  from  the  Input  record  and  put  It  Into  the  fourth  byte  of 
the  output  record.  It  Is  Incremented  for  each  scan  so  that  the  x  coor¬ 
dinate  value  Is  always  retrieved  and  put  Into  the  appropriate  location 
In  I0BUF1.  CTR  Is  the  number  of  scans  In  the  output  record,  and  XOFFST 
defines  the  original  offset  to  retrieve  the  first  HD  value  from  I0BUF0. 
XOFFST  Is  set  In  CHOICE  and  then  incremented  by  the  value  of  XI  In 
RDWR.  XOFFST  controls  the  HD  values  picked  up  from  I0BUF0  to  be  trans¬ 
ferred.  For  the  125m  format,  XI  =  1,  so  that  every  HD  value  In  the  DMA 
record  Is  read  and  transferred.  For  the  25Qm  format,  XI  =  2,  so  that 
every  other  point  In  the  scan  Is  read  and  transferred.  For  the  500m 
format,  XI  *  4,  and  every  fourth  point  Is  transferred.  For  the  1,000m  for¬ 
mat,  XI  =  8  and  every  eighth  point  Is  transferred.  (The  FF  tapes  contain 
less  Information.)  Hot  only  are  the  scans  skipped  (points  In  the  X 
direction),  but  data  values  within  the  scans  (Y  direction  values)  are 
also  skipped.  The  result  Is  much  less  definition  for  the  FF  tapes. 

Figure  4-12  shows  the  RDWR  flow  diagram. 
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Figure  4-12.  RDWR  Flow  Diagram  (Sheet 
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4.13  JMPSW 


JMPSW  Interprets  the  result  of  a  copy  process  and  takes  appro¬ 
priate  action.  The  value  of  the  status  variable,  IXRTN,  Is  checked 
and  various  actions  are  taken  for  each  value.  JMPSW  Is  called  by 
UTLCPV  after  each  copy  process.  The  actions  associated  with  each 
IXRTN  value  are  given  In  Table  4-2.  JMPSW  returns  a  value  of  STSVL 
(through  common  /UNVRSL/)  to  UTLCPY,  which  then  acts  on  It  to  perform 
the  action  decided  by  JMPSW.  The  values  for  STSVL  are  as  follows: 

STSVL  =  1  Continue  with  next  file 
=  2  Read  same  record  again 
=  3  Write  same  record  again 
=  4  Try  entire  file  again 
=  5  End-of-tape  encountered 

In  general,  If  everything  was  good,  the  program  goes  on  with  the 
next  file.  If  there  was  a  bad  read  or  sum  check  error  on  an  Input  record. 
It  tries  to  read  the  same  record  again.  If  It  still  gets  an  error,  it 
backs  the  output  tape  to  the  beginning  of  the  file,  backs  the  input  tape 
up  to  the  beginning  of  the  same  file,  and  tries  the  entire  file  again. 
If  It  gets  an  error  on  the  second  file  try.  It  stops  trying  to  process 
the  file  and  goes  on  to  the  next  one. 

If  there  was  a  bad  read  or  sum  check  error  on  an  output  record,  or  If 
an  Improper  record  was  detected,  It  tries  to  write  the  same  record  out 
again.  The  output  tape  Is  backed  up  one  record,  and  the  Input  tape  Is 
backed  up  the  number  of  records  needed  (DMA  -  1  record;  ML,  MLBU  -  5 
records;  FF  -  10,  20,  or  25),  and  the  program  tries  to  read  and  write  the 
record  again.  If  It  still  gets  an  error,  It  writes  out  a  buffer  to  space 
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TABLE  4-2.  ACTIONS  ASSOCIATED  WITH  IXRTN  VALUES 


IXRTN 

VALUE 

IXRTN  =  1 
IXRTN  =  2 

IXRTN  =  3 


IXRTN  =  4 

IXRTN  =  5 

IXRTN  =  6 


ACTION 


Good  copy;  "FILE  TRANSFER  OK";  STSVL  =  1  Continue 

EOT  encountered;  "EOF /EOT  ENCOUNTERED  ON  INPUT  DE¬ 
VICE  TAPE  ORIVE  _ " 

outputs  two  EOT's,  Rewind  tapes;  St$VL  =  5,  Continue. 


"BAD  READ  ON  ORIGINAL  TAPE  RECORD _ " 

*On  the  first  time,  try  to  read  same  record  again; 
STSVL  =  2. 

**On  the  second  time,  back  up  output  tape  to  the 
beginning  of  file,  back  up  input  tape  to  the  begin¬ 
ning  of  that  input  file,  and  try  file  again; 

STSVL  =  4 

On  second  file  try,  if  still  bad,  stop  processing 

file  and  go  on  to  the  next  file.  STSVL  =  1. 

"BAD  SUMCK  ON  RECORD  _ _ " 

Handled  same  as  3* 

"WRONG  RECORD  COUNT" 

Handled  same  as  3** 

"IMPROPER  RECORD  FOUND 
FOUND 

EXPECTTH5  _ " 

*0n  first  try,  back  up  output  tape  one  record  and 
back  up  input  tape  the  number  of  records  required 
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TABLE  4-2.  ACTIONS  ASSOCIATED  WITH  IXRTN  VALUES  (Continued) 


based  on  the  format:  CPYOBJ  -  1  record;  ML,  MLBU  - 
5  records;  FF  -  10,  20,  or  25:  Try  read  and  write 
process  again.  STSVL  =  3. 

**0n  second  try,  assume  bad  spot  on  tape.  Write  out 
buffer  to  space  output  tape,  put  an  EOT  out,  and 
update  file  count.  Back  up  Input  file  to  beginning 
and  try  to  write  the  entire  file  again.  STSVL  =  4. 
If  second  file  attempt  fails,  processing  Is  stopped 
for  this  file  and  goes  on  to  the  next  one.  STSVL  =  1. 


IXRTN  *  7 


IXRTN  =  8 


IXRTN  =  9 


"BAD  READ  AFTER  WRITE" 

Handled  same  as  6  above. 

"BAD  COMPARE  -  SECOND  TIME" 

Check  for  EOT,  If  not  there  put  one  out  and  update 
file  count.  Stop  processing  of  this  file,  go  on 
to  the  next  one. 

"BAD  SUMCK  ON  OUTPUT  RECORD  _ " 

Handled  same  as  6  above. 


NOTE:  The  message  displayed  to  the  operator  Is  In  quotes. 


the  tape  and  puts  an  EOT  on  the  output  tape.  The  Input  tape  Is  backed 
up  to  the  beginning  of  the  same  file,  and  the  entire  file  Is  tried  again. 
If  the  second  file  attempt  falls,  It  stops  trying  to  process  that  file 
and  goes  on  to  the  next  one. 

A  wrong  record  count  or  a  second  bad  compare  causes  the  output 
tape  to  be  backed  up  one  file,  and  the  entire  Input  file  Is  tried  again. 
If  there  Is  still  an  error.  It  stops  processing  that  file  and  goes  on  to 
the  next  file. 

Refer  to  Figure  4-13  for  the  JMPSW  flow  diagram. 


4-68 


START 


RESET 

FLAGS 


STSVL 

-6 


Figure  4-13.  JMPSW  Flow  Diagram  {Sheet  1  of  3) 
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Figure  4-13.  JMPSW  Flow  Diagram  {Sheet  2  of  3) 
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Figure  4-13.  JMPSW  Flow  Diagram  (Sheet  3  of  3) 
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4.14  RDWKTP 

RDWKTP  reads  the  working  files  stored  on  the  working  tape  Into 
memory.  RDWKTP  Is  called  by  MASTER  prior  to  any  processing.  The  work¬ 
ing  files  are  required  for  all  library  manaqement  functions. 

If  the  working  tape  does  not  load,  the  previous  tape  Is  requested. 
If  this  does  not  load  either,  RDWKTP  Is  exited  with  GBGMSG  =  1.  This 
flags  MASTER  to  the  failure. 

The  flow  diagram  for  RDWKTP  Is  given  In  Figure  4-14. 


Figure  4-14.  RDWKTP  Flow  Diagram  (Sheet  1  of  4) 
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Figure  4-14.  ROWKTP  Flow  Diagram  (Sheet  2  of  4) 
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Figure  4-14 


.  RDWKTP  Flow  Diagram  (Sheeet  4  of  4) 
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4.15  EODPRC 


EODPRC  produces  a  working  log  to  record  the  result  of  the  day's 
processing.  It  prints  the  PTR  table,  the  usage  tables,  and  the  replace¬ 
ment  tables.  Any  maps  processed  are  listed,  giving  their  location  and 
the  result  of  processing.  EODPRC  also  produces  a  new  working  tape  and 
backup  working  tape  to  store  the  updated  files. 

EODPRC  Is  called  Independently  from  the  Master  Menu,  END-OF-DAY  PRO¬ 
CESSING,  or  by  LIBCPY  after  a  map  has  been  entered  In  the  library. 

Refer  to  Figure  4-15  for  the  flow  diagram  of  EODPRC.  A  copy  of  a 
working  log  printout  Is  shown  In  Figure  4-16. 


CHANGE 
WORK  TAPE  NO 
5,  6.  OR  7 


GET  DATE  FROM 
COMMONS 


Figure  4-15.  EODPRC  Flow  Diagram  (Sheet  2  of  3) 


nma  hi  ii  n 


Figure  4-15.  EODPRC  Flow  Diagram  (Sheet  3  of  3) 
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4.16  LBTPFO 


LBTPFD  Identifies  the  ML,  MLBU  and  FF  tapes  assigned  to  each  map 
being  entered  Into  the  library.  If  a  tape  has  not  been  assigned  yet, 
LBTPFD  calls  the  appropriate  routine  to  create  It.  LIBCPY  calls  LBTPFD 
to  get  all  the  Information  on  the  maps  to  be  processed. 

LBTFD  calls  CRTCK  to  direct  the  operator  to  enter  the  map  names. 
The  grid  zone  of  each  map  Is  separated  Into  a  PRFX  and  INFX  value  which 
Is  returned  to  LBTPFD  through  the  common  /FIND/.  LBTPFD  uses  these 
values  to  calculate  the  pointer  table  reference  (PTR)  number  associated 
with  each  grid  zone.  For  the  actual  calculation  of  the  PTR  number,  see 
section  2.2,  Working  Tape. 

Once  the  PTR  Is  determined,  the  PTRTBL  Is  checked  to  see  If  a  tape 
number  has  been  assigned  for  the  grid  zone.  If  a  tape  number  has  been 
assigned,  the  files  already  entered  on  the  tape  are  checked  to  see  If 
there  Is  room.  If  all  Is  well,  the  ML,  MLBU,  and  FF  tapes  are  compu¬ 
ted  and  displayed.  The  map  name,  tape  numbers,  and  PRFX  and  INFX  values 
are  then  entered  Into  CLINFO  for  later  use. 

If  a  tape  has  not  been  assigned,  or  If  the  assigned  tape  did  not 
have  any  room  on  It,  TPUTL  Is  called  to  create  a  new  tape  before  the 
ML,  MLBU  and  FF  numbers  are  calculated. 

The  flow  diagram  for  LBTPFD  Is  given  In  Figure  4-17. 
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4.17  CATFNO 


CATFND  searches  the  catalog  tape  to  determine  if  and  where  a  map  is 
located  in  the  library.  The  operator  can  enter  up  to  30  maps  at  a  time. 
If  the  map  is  found,  the  tape  and  file  number  for  the  ML,  MLBU,  and  FF 
are  printed.  If  the  map  Is  not  in  the  library,  a  message  Is  printed  - 
"No  match  found." 

The  flow  diagram  for  CATFND  is  given  In  Figure  4-18.  See  Figure 
4-19  for  a  sample  printout. 
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Figure  4-18.  CATFND  Flow  Diagram  (Sheet  1  of  5) 
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Figure  4-18.  CATFND  Flow  Diagram  (Sheet  2  of  5) 
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Figure  4-18.  CATFND  Flow  Diagram  (Sheet  3  of  5) 


Figure  4-18.  CATFND  Flow  Diagram  (Sheet  4  of  5) 
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Figure  4-18.  CATFND  Flow  Diagram  (Sheet  5  of  5) 
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4.18  CRTCK 


CRTCK  requests  the  operator  to  enter  a  UTM  map  designator  (15PKQ; 
2PKQ,  etc.).  It  checks  that  the  entered  designator  Is  valid.  That  Is, 
It  checks  that  I  or  0  Is  not  one  of  the  alpha  characters,  that  only  a 
maximum  of  five  characters  are  entered,  and  that  the  PRFX  is  valid. 
CRTCK  then  separates  the  designator  Into  PRFX,  INFX,  SFFX1,  and  SFFX2 
values.  The  designator  Is  separated  as  shown  below: 


4-character  designators 

2PKQ 

2 

1 

P 

l 

K 

1 

Q 

1 

PRFX 

INFX 

SFFX1 

SFFX2 

5-character  designators 

15PKQ 

15 

1 

P 

1 

K 

1 

Q 

1 

PRFX 

INFX 

SFFX1 

SFFX2 

CRTCK  Is  called  by  LBTPFD  to  get  the  maps  that  will  be  entered  into  the 
library.  CRTCK  Is  also  called  by  CATFND  to  get  the  maps  that  will  be 
looked  up. 

There  Is  one  passed  variable,  INCR.  This  keeps  track  of  the  number 
entry  of  the  map. 

INCR  =  1  for  the  first  entry 

INCR  *  2  for  the  second  entry,  etc. 

The  CRTCK  flow  diagram  Is  shown  In  Figure  4-20. 
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Figure  4-20.  CRTCK  Flow  Diagram  (Sheet  3  of  4) 


L 


I 

I 

I 

I 


Figure  4-20.  CRTCK  Flow  Diagram  (Sheet  4  of  4) 
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4.19  CMPRCD 


CMPRCD  compares  each  word  of  I0BUF1  and  IOBUF2.  If  all  the  words 
are  the  same,  the  variable,  ISCS  (In  common  /UNVRSl/),  Is  set  to  zero. 
If  the  comparison  falls,  ISCS  Is  set  to  1. 

CMPRCD  Is  called  by  various  copy  routines  to  check  that  what  was 
written  out  Is  what  was  supposed  to  be  written  out. 

Figure  4-21  Is  the  flow  diagram  for  CMPRCD. 


CMPRCD 


Figure  4-21.  CMPRCD  Flow  Diagram 
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4.20  BDCMP 


BDCMP  is  called  whenever  a  comparison  between  I0BUF1  and  I0BUF2 
falls  during  a  copy  routine.  Normally,  a  bad  compare  is  rare.  If  it 
happens  several  times,  a  more  serious  system  problem  may  be  the  cause. 

BOCMP  checks  how  many  comparison  tries  were  made  and  determines  if 
another  is  warranted.  BDCMP  returns  a  value  for  CMP BAD  to  the  calling 
routine  through  the  commons  /FFILES/.  The  first  bad  compare  causes  the 
program  to  back  up  the  output  tape  one  record,  write  out  the  original 
buffer  again,  and  reread  It  from  the  output  tape.  If  the  compare  falls 
a  second  time,  a  bad  spot  Is  assumed.  A  buffer  Is  written  out  to  space 
down  the  tape  and  a  tape  mark- Is  output.  Then,  the  input  tape  Is  backed 
up  to  Its  beginning  and  the  entire  file  Is  tried  again.  If  the  compare 
falls  this  time,  processing  Is  stopped  for  that  map  and  an  error  mes¬ 
sage  Is  output. 

Figure  4-22  Is  the  BDCMP  flow  diagram. 
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Figure  4-22.  BDCMP  Flow  Diagram 
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4.21  CATUTL 


CATUTL  creates  the  master  and  backup  catalog  tapes.  The  operator 
Is  directed  to  mount  a  blank  tape,  then  Is  given  the  choice  of  creating 
a  master  or  backup  tape.  The  header  file  for  either  tape  Is  built  and 
written  out. 

CATUTL  Is  called  Independently  by  the  utility  REBUILD  CATALOG. 
CATUTL  Is  also  called  by  GBGRTN  when  a  new  catalog  Is  made  to  delete 
the  replaced  maps. 

The  CATUTL  flow  diagram  Is  shown  In  Figure  4-23. 
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Figure  4-23.  CATUTL  Flow  Diagram 
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4.22  TPUTL 


TPUTL  creates  the  headers  for  the  ML,  MLBl),  and  FF  tapes.  TPUTL 

can  be  called  Independently  through  the  utility  BUILD  TAPE  WITH  HEADER 
FILE,  or  by  LBTPFD  whenever  a  new  tape  trio  Is  required.  There  Is  one 
passed  variable  (LIBTAP)  which  Indicates  whether  TPUTL  Is  to  create  a 
new  tape  trio  or  a  trio  to  replace  existing  tapes. 

The  operator  Is  given  the  choice  of  grid  zones  (up  to  a  maximum  of 
five)  to  be  assigned  to  the  tape  number.  TPUTL  finds  the  next  avail¬ 

able  tape  number,  records  It  In  the  PTRTBL  location  for  the  assigned 
grid  zones,  and  creates  the  new  tapes. 

When  a  map  Is  entered  to  be  put  In  the  library  and  a  tape  has  not 
been  assigned  to  it  yet,  LBTPFD  calls  TPUTL  with  LIBTAP  equal  to  zero. 
TPUTL  functions  the  same  as  when  called  by  the  operator.  The  choice  of 
grid  zones  Is  given,  and  the  PTRTBL  Is  updated. 

When  a  map  to  be  entered  Is  already  assigned  to  a  tape,  but  the 

tape  Is  full,  LBTPFD  calls  TPUTL  with  LIBTAP  equal  to  the  old  tape 

number.  TPUTL  will  get  the  next  available  tape  number  and  then  go 
through  the  PTRTBL.  Every  time  It  encounters  a  position  which  has  the 
old  tape  number.  It  substitutes  the  new  one  for  the  old.  The  number  of 
substitutions  Is  counted  and  the  grid  zone  designators  associated  with 
each  PTR  location  are  determined.  The  number  and  grid  zones  are  then 
used  to  make  the  header  files  for  the  replacement  tape.  The  operator 
Is  never  consulted  -  whatever  grid  zones  were  on  the  original  tape  will 
be  on  the  new  tape. 
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After  each  header  file  Is  constructed.  It  is  displayed  and  the  opera¬ 
tor  is  asked  If  It  Is  correct.  If  It  Is,  the  file  Is  written  out  to  a 
blank  tape,  reread,  and  displayed.  The  operator  Is  again  asked  if  it  is 
correct.  If  at  any  point  the  operator  indicates  that  the  header  Is 
wrong  (wrong  grid  zone  entered,  bad  read/write,  etc),  the  MASTER  program 
is  exited.  A  "no"  response  from  the  operator  sets  INFOBF  (in  the  common 
/CATALG/)  to  999.  TPUTL  and  all  other  subroutines  involved  with  the 
entry  operation  test  INFOBF  to  see  if  a  header  failure  occurred.  If  so, 
the  entire  program  is  exited  and  the  operator  has  to  re-execute  MASTER. 

The  operator  is  forced  to  re-execute  the  program  to  protect  the 
PTR  table.  PTR  assignments  are  made  before  the  header  is  displayed, 
so  an  error  means  that  the  wrong  information  has  been  entered.  When  the 
working  tape  Is  read  in,  the  PTR  table  is  set  to  its  original  state. 
The  operator  can  then  continue. 

After  the  tapes  are  made,  TPUTL  is  exited.  Figure  4-24  shows  the 
flow  diagram  for  TPUTL . 
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4-24.  TPUTL  Flow  Diagram  (Sheet  2  of  9) 
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Figure  4-24.  TPUTL  Flow  Diagram  (Sheet  3  of  9) 
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Figure  4-24.  TPUTL  Flow  Diagram  (Sheet  4  of  9) 
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Figure  4-24.  TPUTL  Flow  Diagram  (Sheet  6  of  9) 
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Figure  4-24.  TPUTL  Flow  Diagram  (Sheet  7  of  9) 
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Figure  4-24.  TPUTL  Flow  Diagram  (Sheet  8  of  9) 


4.23  WFUTL 


WFUTL  produces  an  Initial  work  tape  -  It  defines  a  header  file, 
tape  pointer  file,  tape  usage  file,  and  replacement  list  file.  All 
assignments  and  lists  are  Initialized  to  zero.  The  work  tape  created 
is  the  starting  point  for  the  library  management  functions. 

NOTE:  The  program  has  to  be  re-executed  using  this  tape  as  the 
work  tape  to  start  at  the  starting  point. 

WFUTL  Is  called  only  through  the  utility,  REBUILD  WORKING  FILE. 

Figure  4-25  Is  a  flow  diagram  of  WFUTL. 
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Figure  4-25.  WFUTL  Flow  Diagram  (Sheet  1  of  5) 

4-115 


•  I 


Figure  4-25.  WFUTL  Flow  Diagram  (Sheet  2  of  5) 


Figure  4-25. 


WFUTL  Flow  Diagram  (Sheet  3  of  5) 
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Figure  4-25.  WFUTL  Flow  Diagram  (Sheet 


of  5) 
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4.24  CATUPD 


CATUPD  updates  the  master  catalog  to  reflect  the  maps  added  to  the 
library.  When  the  master  catalog  is  updated,  it  makes  a  backup  catalog 
by  copying  the  master.  CATUPD  Is  called  by  LIBCPY  after  the  maps  have 
been  processed. 

The  operator  is  directed  to  mount  the  master  catalog  tape.  The 
program  then  verifies  that  the  tape  Is  write-enabled  and  that  the  correct 
tape  has  been  mounted.  The  subroutine  WFUPD  is  then  called  to  update 
the  replacement  table.  When  control  returns  to  CATUPD,  the  variable 
NWCAT  is  checked  to  see  if  a  replacement  catalog  was  made.  (This  hap¬ 
pens  when  the  number  of  replaced  cells  reaches  40.)  If  a  new  catalog 
was  made,  the  entire  sequence  is  begun  again  from  the  beginning  of  CATUPD. 

If  a  new  catalog  was  not  made,  the  program  then  checks  if  this  will 
be  the  first  entry  to  the  catalog.  (This  would  happen  only  at  the  very 
beginning  of  the  library.)  If  it  Is,  the  record  count  is  initialized 
to  -1,  so  the  first  record  would  be  zero.  If  it  is  not  the  first  entry, 
the  record  count  of  the  last  entry  is  retrieved  and  Incremented. 

For  each  CL  INFO  entry,  the  record  type,  record  count,  and  date  are 
added.  Each  CLINFO  record  Is  then  transferred  to  the  CELLR  array.  It  Is 
sum  checked,  then  written  out  to  the  catalog  tape.  After  all  the  rec¬ 
ords  are  written,  two  EOT  marks  are  output,  and  the  operator  is  noti¬ 
fied  that  the  catalog  Is  written.  To  make  the  backup  catalog,  ENTTP  is 
called.  The  operator  Is  then  directed  to  dismount  the  tapes  and  store 
them  properly. 

The  flow  diagram  for  CATUPD  is  shown  in  Figure  4-26. 
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Figure  4-26.  CATUPD  Flow  Diagram  (Sheet  3  of 
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4.25  WFUPO 


WFUPD  updates  the  global  replacement  table  every  time  replacement 
maps  are  added  to  the  library.  WFUPD  reads  all  current  catalog  entries 
and  compares  them  with  the  maps  about  to  be  entered.  If  there  Is  a  match 
(meaning  that  a  new  map  will  replace  an  existing  map),  the  replaced  map 
Is  entered  in  the  replacement  table.  The  replacement  table  can  hold  a 
maximum  of  40  entries.  When  It  Is  full,  GBGRTN  Is  called  to  make  a 
new  catalog  and  delete  all  the  replaced  maps.  WFUPD  Is  called  by 
CATUPD .  The  flow  diagram  for  WFUPD  Is  shown  in  Figure  4-27. 

Refer  to  the  section  on  working  files  for  the  function  of  the  global 
replacement  table. 
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Figure  4-27.  WFUPD  Flow  Diagram  (Sheet  1  of  3) 
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Figure  4-27.  WFUPD  Flow  Diagram  (Sheet  2  of  3) 
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Figure  4-27.  WFUPD  Flow  Diagram  (Sheet  3  of  3) 
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4.26  UNSRTD 


UNSRTD  provides  an  unsorted  listing  of  all  the  entries  on  the 
master  catalog  or  backup  catalog  tape.  It  prints  the  heading,  the  date 
the  listing  was  made,  the  header  Information,  and  the  catalog  listing. 
The  listing  gives  the  grid  zone  designator,  the  northing  and  easting 
coordinates,  the  record  number,  the  km  in  the  N/S  and  E/W  directions, 
the  tape  and  file  numbers  of  the  ML,  MLBU,  and  FF  location,  and  the  date 
the  map  was  entered  Into  the  library. 

Refer  to  Figure  4-28  for  the  UNSRTD  flow  diagram.  Figure  4-29 
shows  a  printout  of  the  unsorted  listing. 
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Figure  4-28.  UNSRTD  Flow  Diagram  (Sheet  1  of  2) 
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4.27  CATLST 


CATLST  provides  the  headings  and  header  Information  for  the  master 
catalog  listing.  CATLST  Is  called  only  by  IINSRTO  at  this  time.  When 
the  sort  by  grid  designator  or  sort  by  northing/easting  routine  is  In¬ 
corporated,  these  sorts  will  also  call  CATLST. 

There  Is  one  passed  parameter,  SRTTYP,  which  Is  assigned  by  the  call¬ 
ing  program.  Depending  on  the  value  of  SRTTYP,  CATLST  will  print  the 
type  of  sort:  SRTTYP  *  1  Unsorted 

■  2  Grid  designator 
*  3  Northing/easting 

CATLST  directs  the  operator  to  mount  the  master  catalog  tape,  reads 
the  header  Information,  and  prints  the  appropriate  heading. 

Refer  to  Figure  4-30  for  the  CATLST  flow  diagram.  The  printed  heading 
for  an  unsorted  listing  can  be  seen  In  Figure  4-29. 
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Figure  4-30.  CATL.ST  Flow  Diagram 
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4.28  LOCFLS 

LOCFLS  Is  the  controlling  routine  for  Identifying  the  maps  on  the 
CPYOBJ  scratch  tape.  Interacting  with  FDMPNU  and  POSTAP,  LOCFLS  searches 
the  CPYOBJ  scratch  tape  and  puts  the  location  of  each  map  to  be  entered 
in  the  pointer  position  (CLINFO  (  ,  22))  for  each  map.  The  map's  location 
Is  determined  by  the  file  number  It  has  on  the  scratch  tape.  The  file 
number  Is  put  Into  CLINFO  to  record  the  location  for  later  use.  If  any 
maps  on  the  scratch  tape  are  unreadable  or  not  on  the  tape,  a  message  is 
printed  out,  and  the  status  word  (CLINFO  (  ,  23))  Is  loaded  with  a  "3." 
No  further  processing  Is  attempted  for  these  maps. 

LOCFLS  Is  called  by  CLLTP  when  maps  are  to  be  entered  Into  the  li¬ 
brary.  LOCFLS  calls  FDMPNU  to  read  the  header  of  each  map  on  the  scratch 
tape.  LOCFLS  then  compares  each  map  read  with  the  maps  entered  In  CLINFO. 
If  there  Is  a  match,  the  location  of  the  map  Is  put  Into  the  associated 
CLINFO  pointer  position.  If  the  maps  do  not  match,  LOCFLS  continues 
reading  the  scratch  tape  until  all  the  maps  In  CLINFO  are  found,  or  until 
an  end-of-tape  Is  encountered. 

The  flow  diagram  for  LOCFLS  Is  given  in  Figure  4-31. 


4-134 


REWIND  INPUT 


INITIALIZE 
MAPNO TO  0 


INITIALIZE  POINTER 
POSITIONS  TO  0 
CLINFO  I  .  22)  =  0 


INCREMENT 
MAPNO  BY  1 


CALL  FDMPNU 
TO  SEE  IF  MAP 
IS  ON  TAPE 


Figure  4-31.  LOCFLS  Flow  Diagram  (Sheet  1  of  2) 


4.29  FDMPNU 


FDMPNU  determines  If  a  map  on  the  CPYOBJ  scratch  tape  Is  good. 
FDMPNU  Is  called  by  LOCFLS  to  Identify  the  maps  on  the  CPYOBJ  scratch  tape. 
There  are  two  passed  variables,  NUMBER  and  STATUS.  NUMBER  Is  the  file 
number  a  map  holds  on  the  scratch  tape;  STATUS  Is  the  returned  variable. 
Indicating  the  status  of  the  map.  The  values  returned  for  STATUS  are: 
STATUS  =  1  Good  read 

=  2  FLR,  DESR  was  unreadable,  or  there  was  a  sum  check 
error 

=  3  POSTAP  did  not  Identify  the  file,  or  an  EOT  was  en¬ 
countered 

FDMPNU  calls  POSTAP  to  determine  If  the  file  Is  on  the  tape.  If  it 
Is,  FDMPNU  reads  the  header  and  determines  If  the  map  Is  good.  The  tape 
is  then  backed  up  to  the  beginning  of  the  file,  and  the  STATUS  is  sent 
back  to  the  calling  program. 


Refer  to  Figure  4-32  for  the  FDMPNU  flow  diagram. 
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Figure  4-32.  FDMPNU  Flow  Diagram  (Sheet  3  of  3) 


4.30  POSTAP 


POSTAP  positions  the  CPYOBJ  scratch  tape  to  a  specified  file. 
POST A P  performs  two  functions  during  library  copies:  When  the  CPYOBJ 
scratch  tape  Is  first  mounted,  FDMPNU  calls  POSTAP  to  Identify  each  file 
on  the  scratch  tape.  At  this  point,  POSTAP  only  has  to  check  that  a 
file  exists.  Further  on  In  the  library  entry  routine,  CLLTP  calls  POSTAP 
prior  to  each  file  copy  to  position  the  tape  to  the  correct  file.  Here, 
POSTAP  compares  the  file  number  of  the  map  to  be  copied  with  the  file 
where  the  CPYOBJ  tape  Is  presently  positioned.  POSTAP  then  spaces  the 
CPYOBJ  tape  ahead  or  back  so  that  the  file  wanted  is  under  the  read  head. 

There  are  three  passed  variables:  NUMBER,  FOUND,  and  AUTREV.  NUM¬ 
BER  Is  the  file  number  of  the  next  map  to  be  copied.  FOUND  is  the  re¬ 
turned  parameter,  taking  on  a  logical  true  If  the  file  Is  found  and  a 
logical  false  If  the  end-of-tape  Is  encountered  before  the  file  Is  found. 
AUTREV  Is  not  used  at  this  time.  MAPNO ,  the  file  number  at  which  the 
CPYOBJ  tape  Is  positioned,  is  passed  to  the  routine  through  the  common 
/TAPPOS/.  MAPNO  and  NUMBER  are  compared,  and  appropriate  action  is 
taken. 

The  POSTAP  flow  diagram  Is  shown  In  Figure  4-33. 
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Figure  4-33.  POSTAP  Flow  Diagram  (Sheet  1  of  2) 
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Figure  4-33.  POSTAP  Flow  Diagram  (Sheet  2  of  2) 
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4.31  DSPLAY 


DSPLAY  prints  and  displays  the  result  of  the  maps  processed  for 
entry  Into  the  library.  It  lists  the  maps  In  five  categories: 

•  Haps  processed  and  entered  Into  the  library. 

•  Maps  not  processed  by  operator  direction. 

•  Maps  not  found  on  the  CPYOBJ  tape. 

•  Maps  not  processed  because  the  tape  was  full. 

•  Maps  not  processed  because  of  a  bad  copy. 

The  status  word  ( CLINFO  (  ,  23})  is  checked  for  each  map  and  the  appro¬ 
priate  message  printed: 

CLINFO  (  ,  23)  =  0  Not  processed 
=  1  Processed 

=  2  Not  processed  due  to  tape  limitation 

=  3  Not  processed  because  map  was  not  found  on  CPYOBJ 
tape 

=  4  Not  processed  due  to  bad  copy 

DSPLAY  Is  called  by  CLLTP  after  maps  have  been  processed  and  by 
EOPPRC  as  part  of  the  working  files  log. 

Figure  4-34  is  the  DSPLAY  flow  diagram. 
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4.32  WRRING 

WRRING  checks  whether  or  not  a  write  ring  Is  present  on  a  tape 
mounted  on  a  given  tape  drive.  It  Is  called  by  various  subroutines  to 
check  whether  a  given  tape  Is  write  protected/enabled.  There  are  two 
passed  variables,  DEVNUM  and  STAT;  both  are  set  by  the  calling  pro¬ 
gram.  DEVNUM  Is  the  logical  device  number  of  the  tape  drive  on  which 
the  tape  Is  mounted.  STAT  Is  the  condition  for  which  the  program  Is 
checking: 

STAT  ■  0  Write  ring  should  be  on 
STAT  =  1  Write  ring  should  be  off 

If  the  correct  condition  does  not  exist,  WRRING  interrupts  with  an 
error  message  directing  the  operator  to  take  appropriate  action.  When 
the  correct  condition  Is  met,  WRRING  Is  exited. 

See  Figure  4-35  for  the  WRRING  flow  diagram. 
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4.33  YESNO 


YESNO  Interprets  the  operator's  "yes"  or  "no"  response  and  returns 
a  logical  value  for  the  calling  routine  to  evaluate.  YESNO  Is  called 
whenever  the  operator  Is  asked  for  a  YES/NO  decision.  There  Is  one 
passed  parameter,  FLAG,  which  returns  the  logical  equivalent  of  the  op¬ 
erator's  response  to  the  calling  program.  If  the  operator  answers  with 
anything  other  than  "Y,"  "YE,"  "YES,"  "N,"  or  "NO,"  an  error  message  Is 
displayed  and  the  operator  Is  asked  to  reenter  the  response. 

The  YESNO  flow  diagram  Is  shown  In  Figure  4-36. 
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Figure  4-36.  YESNO  Flow  Diagram 


4.34  SELECT 


SELECT  Interprets  an  operator's  response  to  alphabetical  choices  and 
returns  a  numerical  value  for  the  calling  routine  to  evaluate.  SELECT 
Is  called  whenever  the  operator  Is  given  an  alphabetic  format  choice 
(e.g..  A,  B,  C,  etc). 

There  are  two  passed  parameters,  N  and  CHC.  N  Is  the  number  of 
choices  presented  to  the  operator;  It  Is  set  by  the  calling  routine. 
CHC  is  the  return  parameter,  giving  the  numerical  equivalent  to  the  op¬ 
erator's  selection.  If  the  operator  enters  an  invalid  choice,  an  error 
message  Is  displayed  and  the  operator  Is  asked  to  select  again. 

Refer  to  Figure  4-37  for  the  SELECT  flow  diagram. 


Figure  4-37. 


SELECT  Flow  Diagram 
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4.35  HOWMNY 


HOWMNY  Interprets  an  operator's  numerical  response  and  determines 
If  It  Is  within  acceptable  limits.  HOWMNY  is  called  whenever  the  oper¬ 
ator  is  directed  to  enter  numerical  values.  There  are  two  passed  vari¬ 
ables,  NUM  and  LMT.  NUM  Is  the  value  returned  to  the  calling  program. 
LMT  is  the  maximum  value  NUM  can  have.  LMT  is  set  by  the  calling  pro¬ 
gram.  If  the  number  entered  Is  greater  than  the  specified  limit,  an 
error  message  is  displayed  and  the  operator  Is  directed  to  reenter  the 
number. 

See  Figure  4-38  for  the  flow  diagram  for  HOWMNY. 
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4.36  ZERO 


ZERO  zeroes  out  an  array.  It  Is  called  by  MFUTL  only  when  creating 
files  for  the  work  tape.  It  has  one  passed  parameter,  N,  which  determines 
the  size  of  the  array  to  be  zeroed.  The  array  has  a  maximum  of  1,205  words 
at  this  point.  The  array  value  Is  passed  through  the  common  B. 

See  Figure  4-39  for  the  ZERO  flow  diagram. 


Figure  4-39.  ZERO  Flow  Diagram 
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4.37  GBGRTN 


GBGRTN  makes  a  new  master  catalog  tape,  deleting  all  replaced  maps. 
It  Is  called  by  WFUPD  when  the  global  replacement  table  Is  full. 

Before  creating  the  new  catalog,  GBGRTN  calls  UNSRTD  to  record 
all  existing  catalog  entries.  The  replacement  table  Is  also  printed 
out.  These  procedures  will  provide  enough  information  to  reconstruct 
a  new  catalog  If  necessary. 

CATUTL  Is  called  to  create  the  new  catalog  and  header  file.  After 
the  header  Is  made,  each  of  the  old  catalog  records  Is  read,  and  the 
map  contained  on  them  Is  compared  with  the  replacement  list  file.  If  the 
map  was  replaced,  the  replacement  list  position  Is  zeroed  out,  and  the 
record  Is  Ignored. 

If  the  map  contained  on  the  record  was  not  replaced,  the  record  is 
transferred  to  the  new  catalog  and  verified.  The  program  continues  to 
read  the  catalog  until  the  EOT  mark  Is  reached.  Two  EOT  marks  are  put 
on  the  new  catalog  and  the  tapes  are  rewound.  The  number  of  replaced 
cells  Is  also  reset  to  zero. 

The  operator  Is  directed  to  store  the  old  catalog  and  write  protect 
the  new  one. 

If  any  of  the  records  did  not  copy  well,  a  message  Is  given  to  the 
operator  to  verify  the  catalog  tapes  and  re-create,  if  necessary. 

GBGRTN  then  calls  CATUTL  again  to  make  a  new  backup  catalog  tape. 
The  operator  Is  notified  that  the  backup  tape  was  made,  and  the  routine 
Is  exited. 

The  flow  diagram  for  GBGRTN  Is  given  In  Figure  4-40. 
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Figure  4-40.  GBGRTN  Flow  Diagram  (Page  2  of  5) 
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Figure  4-40.  GBGRTN  Flow  Diagram  (Page  3  of  5) 
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Figure  4-40.  GBGRTN  Flow  Diagram  (Page  4  of  5) 
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4.38  GRIDCK 


GRIDCK  Interprets  and  validates  UTM  grid  zone  designators  (l.e., 
2S,  15K)  entered  by  the  operator.  It  performs  a  function  similar  to 
CRTCK.  GRIDCK  Is  called  by  TPUTL  only  when  library  tapes  are  being 
created.  GRIDCK  is  used  to  get  the  grid  zones  which  will  be  put  on  each 
tape.  The  grid  zone  Is  divided  Into  a  prefix  and  suffix  as  shown  be¬ 
low: 

grid  zone  2S  15  K 

/  \  -  I 

prefix  suffix  prefix  suffix 

The  values  for  the  prefix  and  suffix,  TRFX  and  TNFX,  are  returned  to 
TPUTL  through  the  common  /TFIND/.  A  separate  common  area  was  required 
to  keep  values  entered  through  CRTCK  separate  from  header  information. 

There  Is  one  passed  variable,  INCR,  which  Identifies  the  order  of 
the  grid  zones:  INCR  =  1  for  the  first  grid  zone;  INCR  =  2  for  the 
second,  etc. 

Refer  to  Figure  4-41  for  the  GRIDCK  flow  diagram. 


Figure  4-41.  GRIDCK  Flow  Diagram  (Page  1  of  2) 
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Figure  4-41.  GRIOCK  Flow  Diagram  (Page  2  of  2) 


4.39  FLCPY 


FLCPY  makes  a  verbatim  copy  of  a  specified  file.  It  enables  the 
operator  to  create  a  scratch  tape  with  files  In  any  order.  FLCPY  Is 
called  only  from  the  COPY  OPTION  menu,  COPY  FILE  option. 

The  operator  Is  directed  to  enter  the  position  of  the  file  to  be 
copied,  and  whether  any  files  already  on  the  scratch  tape  are  to  be 
skipped.  Both  tapes  are  then  spaced  down  to  the  appropriate  file  space 
and  the  file  Is  copied.  After  each  file  copy,  the  operator  Is  given 
the  option  to  copy  another  file,  end  the  tape,  or  just  return  to  the 
COPY  OPTION  menu. 

Refer  to  Figure  4-42  for  the  FLCPY  flow  diagram. 
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Figure  4-42.  FLCPY  Flow  Diagram  (Page  1  of  4) 
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Figure  4-42.  FLCPY  Flow  Diagram  (Page  2  of  4) 
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Figure  4-42.  FLCPY  Flow  Diagram  (Page  3  of  4) 


Figure  4-42.  FLCPY  Flow  Diagram  (Page 
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SECTION  5 


COMPUTER  PROGRAM  LISTINGS 


This  section  contains  the  computer  program  listings  for  the  FFDTDVLDS. 
An  explanation  of  the  operating  system  SIO  subroutine  Is  given  below  to 
help  the  reader  to  fully  understand  these  listings. 


SIO 


The  SIO  subroutine  Is  the  nonstandard  system  I/O  call  used  throughout 
the  library  program  to  perform  the  following  operations:  read,  write,  pass 
records  or  files,  and  finalize.  The  routine  has  six  passed  parameters: 

CALL  SIO  (FUNCTION,  DEVICE,  ARRADR,  WDCNT,  STATUS,  WDSDONE) 


FUNCTION  defines  the  function 

0  *  Read 

1  *  Write 

2  =  Initialize 

3  *  Pass  Record  Forward 

4  =  Pass  Record  Backward 


that  SI()  Is  to  perform: 

5  *  Pass  File  Forward 

6  =  Finalize 

7  *  Rewind 

8  =  Pass  File  Backward 


DEVICE  1$  the  logical  number  assigned  to  a  given  device: 


1  *  T1 

2  *  T2 

3  =  T3 

4  -  T4 

5  »  UNISCOPE 


6  *  PRINTR 

7  =  RAMTEK 

8  =  RAYMOND 

9  *  CARD  READER 


ARRADR  Is  the  location  (word  or  array)  to  be  loaded  or  read  from. 


WDCNT  Is  the  Index  count  for  various  functions: 

•  For  Read  or  Write  functions,  WDCNT  Is  the  number  of  16-bit  words 
to  be  read  or  written  out.  The  maximum  for  a  single  call  Is 
32,767. 

•  For  the  Initialize  or  Rewind  functions,  WDCNT  has  no  effect. 
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•  For  the  Pass  Record  or  Files  functions,  WDCMT  Is  the  number  of 
records  or  files  to  be  passed  forward  or  back. 

•  For  the  Finalize  function,  WDCNT  Is  the  number  of  termination 
marks  to  be  output.  A  maximum  of  63  Is  allowed. 


STATUS  Is  returned  by  the  system;  It  Indicates  the  status  of  the  opera¬ 
tion: 

0  =  Good  Operation 

1  =  Bad  Packet  or  Fatal  I/O  Error 

2  =  End-of-FIle  Encountered 


WDSDONE  gives  the  number  of  words  read  or  operations  actually  performed. 
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